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

const n=5;
      m=6;
var f:text;
    v_min,v_max,x,r,c,i,j,imn,jmx,mn,mx:integer;
    a:array[1..n,1..m] of integer;
    s:string;
begin
repeat
writeln('Введите границы диапазона');
readln(v_min,v_max);
until v_min<v_max;
assign(f,'massiv.txt');
rewrite(f);
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    x:=v_min+random(v_max-v_min+1);
    write(f,x:5);
   end;
  writeln(f,'');
 end;
reset(f);
r:=0;
while not seekeof(f) do
 begin
  readln(f,s);
  r:=r+1;
 end;
reset(f);
c:=0;
while not eoln(f) do
 begin
  read(f,x);
  c:=c+1;
 end;
reset(f);
writeln('Матрица');
for i:=1 to r do
 begin
  for j:=1 to c do
   begin
    read(f,a[i,j]);
    write(a[i,j]:5);
   end;
  writeln;
 end;
close(f);
mn:=a[1,1];
imn:=1;
mx:=a[1,1];
jmx:=1;
for i:=1 to r do
for j:=1 to c do
if a[i,j]<mn then
 begin
  mn:=a[i,j];
  imn:=i
 end
else if a[i,j]>mx then
 begin
  mx:=a[i,j];
  jmx:=j
 end;
writeln('Минимальный элемент=',mn,' в строке ',imn);
for i:=1 to c do
write(a[imn,i]:5);
writeln;
writeln('Максимальный элемент=',mx,' в столбце ',jmx);
for i:=1 to r do
write(a[i,jmx]:5);
writeln;
end.

reset(f);
r:=0;
while not seekeof(f) do