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

[Roman1]

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

[volvo]

Bokul,

var f: file of main;

далеко не то же самое, что

var f: text;

Кроме того:

if b=false then begin
  for i:=1 to 10 do begin

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

  end;
end;