Считать из текстового файла исходные данные в массив и вычислить максимальное значение и его индексы

Program t;
Uses WinCrt;
Var     a,b,c,x,y,Xmax,Xmin,dX:real;
    f:text;
Begin
    assign(f,'f.txt');
    reset(f); {откроем для чтения заполненный ранее файл}
    read(f,a,b,c,Xmin,Xmax,dX); {считываем из файла исходные данные}
    append(f);{открываем файл для дозаписи}
    x:=Xmin;
    repeat
    y:=(a*sqr(x)*x+b*x)*exp(1/3*ln(sqr(x)+sqr(y)))-exp(c*x); 
{вычисляем значение у} 
    writeln(f,'x=',x:3:3,' y=',y:3:3); {Записываем в файл значения х и у} 
    x:=x+dX;  
    until x>Xmax;
    close(f);
End.

program Main;
uses crt;
var f:text;
    x:array[1..5,1..6] of integer;
    i,j:integer;
    MaxI,MaxJ:integer;
    FileName:string;
begin
     clrscr;
     FileName:='...';{здесь нужно ввести путь к файлу f.txt}
     Assign(f,FileName);
     reset(f);
     writeln('Original matrix from: ',FileName);
     for j:=1 to 6 do
     begin
          for i:=1 to 5 do
          begin
               read(f,x[i,j]);
               write(x[i,j],' ');
          end;
          writeln;
     end;
     MaxI:=1;
     MaxJ:=1;
     for j:=2 to 6 do
     begin
          for i:=2 to 5 do
          begin
               if x[MaxI,MaxJ]<x[i,j] then
                  begin
                       MaxI:=i;
                       MaxJ:=j;
                  end;
          end;
     end;
     Append(f);
     writeln('Maximum value is x(',MaxI,';',MaxJ,')=',x[MaxI,MaxJ]);
     writeln(f);
     writeln(f,'Maximum value is x(',MaxI,';',MaxJ,')=',x[MaxI,MaxJ]);
     Close(f);
     readln;
end.

Program TF;
Uses WinCrt;
Type    Work=record
    ceh:byte;
    name:string[20];
    pol:char;
    zar:real;
    vik:byte
    end;
Var     z:work;
    f:file of work;
    s:char;
 
{Процедура вывода базы}
procedure vivod;
begin
    reset(f);   {открываем файл для чтения}
writeln('              Список работающих');
    while not (eof(f)) do   {вывод на экран содержимого файла}
    begin               
        read(f,z);
        write(z.ceh); gotoxy(10,wherey);
        write(z.name); 
        gotoxy(30,wherey);
        write(z.vik); 
        gotoxy(35,wherey);
        write(z.zar:3:2);
        gotoxy(45,wherey);
        write(z.pol);
 
writeln;
    end;
    end;
{Основная программа} 
Begin
Writeln('      СОЗДАНИЕ ФАЙЛА');
    assign(f,'work.dan');
    rewrite(f); {создаём файл}
s:='д' ;
    while s='д' do {заполнение файла будет до тех пор, пока s='д'}
    begin               
        writeln('Номер цеха');
        readln(z.ceh);
        writeln('Фамилия сотрудника ');
        readln(z.name);
        writeln('Возраст сотрудника ');
        readln(z.vik);
        writeln('Заработная плата ');
        readln(z.zar);
writeln('Пол ');
        readln(z.pol);
        write(f,z);
writeln('Продолжить заполнение файла? (д/н)');
        readln(s);
    end;
    clrscr;
{Вывод на экран содержимого файла} 
vivod;
End.