Вывести на экран строку с минимальным элементом и столбец с максимальным элементом файла

const
  m=10;
  n=5;
 
type
  tmatrix=array [1..n,1..m] of integer;
  tset=set of byte;
 
procedure creatematrix(var arg:tmatrix;var af:text);
var
  v_min,v_max:integer;
  i,j:byte;
begin
  writeln('введите диапозон генерации случайных чисел min max(через пробел)');
  readln(v_min,v_max);
  for i:=1 to n do begin
    for j:=1 to m do begin
      arg[i,j]:=random(v_max+1-v_min)+v_min;
      write(af,arg[i,j]:4);
    end;
    writeln(af);
  end;
end;
 
procedure findminmax(var af:text;var indmin,indmax:byte);
var
  min,max,l,w,num:byte;
begin
  read(af,num);
  min:=num;max:=num;
  indmin:=1;indmax:=1;
  w:=0;
  while not eof(af) do begin
    l:=0;
    inc(w);
    while not seekeoln(af) do begin
      read(af,num);
      inc(l);
      if num<min then begin
        min:=num;
        indmin:=w;
      end;
      if num>max then begin
        max:=num;
        indmax:=l;
      end;
    end;
    readln(af);
  end;
  writeln('минимальное число ',min,' в строке ',indmin);
  writeln('максимальное число ',max,' в столбце ',indmax);
end;
 
procedure writerow(var af:text;ind:byte);
var
  i,num:byte;
begin
  i:=1;
  while i<ind do begin
    readln(af);
    inc(i);
  end;
  if i=ind then
    while not seekeoln(af) do begin
      read(af,num);
      write(num,' ');
    end;
end;
 
procedure writecolumn(var af:text;ind:byte);
var
  i,num:byte;
begin
  i:=0;
  while not eof(af) do begin
    inc(i);
    read(af,num);
    if i=ind then begin
      readln(af);
      writeln(num);
      i:=0;
    end;
  end;
end;
 
var
  massivnm:tmatrix;
  row,column:byte;
  f:text;
 
begin
  randomize;
  assign(f,'C:\Files for Program Pascal\matrix1.txt');
  rewrite(f);
  creatematrix(massivnm,f);
  close(f);
  assign(f,'C:\Files for Program Pascal\matrix1.txt');
  reset(f);
  findminmax(f,row,column);
  reset(f);
  writeln;
  writerow(f,row);
  writeln;
  writeln;
  reset(f);
  writecolumn(f,column);
  close(f);
  readln;
end.