В двумерном массиве поменять местами 2 строки, содержащую наименьший элемент и содержащую максимальное количество положительных элементов

uses crt;
var f:text;
    a:array[1..50,1..50] of integer;
    n,m,i,j,mn,imn,k,mx,imx:byte;
    x:integer;
begin
clrscr;
assign(f,'file1.txt');
reset(f);
read(f,n);//читаем кол. строк
read(f,m);//читаем кол. столбцов
writeln('Исходная матрица:');
for i:=1 to n do
 begin
  for j:=1 to m do
   begin
    read(f,a[i,j]);//читаем матрицу
    write(a[i,j]:3,' ');
   end;
  writeln;
 end;
mn:=a[1,1];
imn:=1;
mx:=0;
imx:=1;
for i:=1 to n do
 begin
  k:=0;
  for j:=1 to m do
   begin
    if a[i,j]<mn then
     begin
      mn:=a[i,j];
      imn:=i;//строка с минимальным
     end;
    if a[i,j]>0 then k:=k+1;
   end;
  if k>mx then
   begin
    mx:=k;
    imx:=i;//строка с макс. кол. полож. элементов
   end;
 end;
writeln('Минимальный элемент=',mn,' в строке ',imn);
writeln('Наибольшее количество положительных=',mx,' в строке ',imx);
writeln;
if imn=imx then write('Строки равны, обмена нет!')
else
 begin
  for i:=1 to m do
   begin
    x:=a[imn,i];
    a[imn,i]:=a[imx,i];
    a[imx,i]:=x;
   end;
  writeln('Обмен строк ',imn,' и ',imx);
  for i:=1 to n do
   begin
    for j:=1 to m do
    write(a[i,j]:3,' ');
    writeln;
   end;
 end;
readln
end.