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

const n=5;
      m=6;
var f:text;
    massivnm:array[1..n,1..m] of integer;
    v_min,v_max,i,j,k,r,c,mx,imx,mn,jmn:integer;
    s:string;
begin
randomize;
repeat
writeln('Введите границы диапазона чисел');
readln(v_min,v_max);
until v_max>v_min;
assign(f,'matrix.txt');
rewrite(f);
{запись массива в файл}
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    k:=v_min+random(v_max-v_min+1);
    write(f,k: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,k);
  c:=c+1;
 end;
reset(f);
{найдем строку с макс и столбец с мин}
for i:=1 to r do
for j:=1 to c do
 begin
  read(f,massivnm[i,j]);
  if (i=1)and(j=1) then
   begin
    mx:=massivnm[1,1];
    imx:=1;
    mn:=massivnm[1,1];
    jmn:=1;
   end
  else if massivnm[i,j]>mx then
   begin
    mx:=massivnm[i,j];
    imx:=i;
   end
  else if massivnm[i,j]<mn then
   begin
    mn:=massivnm[i,j];
    jmn:=i;
   end
 end;
close(f);
writeln('Максимальный элемент=',mx);
writeln('Строка с максимальным=',imx);
for i:=1 to m do
write(massivnm[imx,i]:5);
writeln;
writeln('Минимальный элемент=',mn);
writeln('Столбец с минимальным=',jmn);
for i:=1 to n do
write(massivnm[i,jmn]:5);
end.