Дана таблица 10*15. Напечатать номер строки содержащий максимальное число минимальных элементов — Pascal(Паскаль)

uses crt;
const
   n=10;
   m=15;
var
   i,j,im,min,k,ks:integer;
   a:array[1..10,1..15] of integer;
begin
   for i:=1 to n do
      for j:=1 to m do
         a[i,j]:=random(50);
   min:=a[1,1];
   for i:=1 to n do
      for j:=1 to m do
         if a[i,j]<min then
         begin
            min:=a[i,j];
         end;
   k:=0;
   for i:=1 to n do
   begin
      for j:=1 to m do
      begin
         if a[i,j]=min then
            inc(ks);
      end;
      if ks>k then
      begin
         k:=ks;
         im:=i;
      end;
   end;
   writeln('строка с макс количеством мин элементов: ',im);
   for i:=1 to n do
   begin
      for j:=1 to m  do
         write(a[i,j]:3);
      writeln;
 
   end;
end.