задача на паскале.матрица (другая), про абсциссу и ординаты в матрицы ,строка и столбец Опции

[Roman1]

помогите пожалуйста:
Считать из текстового файла Beg.txt матрицу Р(2,10). Элементы столбцов соответственно абсцисса и ордината одной из десяти точек плоскости. Если нет ни одной пары точек, расстояние между которыми меньше заданной величины R, заменить на нуль в матрице Р все отрицательные абсциссы точек, увеличив ординаты этих точек на R. Результат записать в файл Rez.txt.
Если получится, то сегодня

[Bokul]

if mas[i,1]<0 then begin { <--- Begin забыл }
      mas[i,1]:=0;
      inc(mas[i,2],r);
    end; { <--- и End тоже }
{ <--- Begin забыл }

А здесь и не надо Begin - ординату в любом случае надо увеличивать.

Вот процедури считования и записи для текстових файлов:

procedure read_array(s:string; var mas:main);
var f:text; buf1,buf2:string; code,i,j:byte;
begin
     assign(f,s);
     reset(f);
     buf2:='';
     for i:=1 to 10 do
         begin
              readln(f,buf1);
              for j:=1 to length(buf1) do
                  begin
                       if buf1[j]=' ' then
                          begin
                               val(buf2,mas[i,1],code);
                               buf2:='';
                          end
                       else
                           buf2:=buf2+buf1[j];
                       if j=length(buf1) then
                          begin
                               val(buf2,mas[i,2],code);
                               buf2:='';
                          end;
                  end;
              buf1:='';
         end;
     close(f);
end;

procedure write_array(s:string; mas:main);
var f:text; str1,str2:string; i:byte;
begin
     assign(f,s);
     rewrite(f);
     append(f);
     for i:=1 to 10 do
         begin
              str(mas[i,1],str1);
              str(mas[i,2],str2);
              writeln(f,str1+' ',str2);
         end;
     close(f);

end;