Из двумерного массива строк найти ту стоку в которой буква 's' встречается чаще

program got;
var  k,im,i,m,n,j,s:integer; r:string[100];   f:boolean;
am:array [1..100] of string[100];
begin
    write  ('n=');
    readln(n);
    for i:=1 to n do
                  begin
                     write (' a[',i,']=');readln(am[i]);
                  end;   s:=0;
 
     for i:=1 to n do  begin
                               j:=Length(am[i]);
                               k:=pos(am[i],'s');
                               m:=0;
                               r:='';
                               f:=false;
                                while f=true do begin
                  if k=0 then f:=true else
                     begin
                    if k=j then
                      begin
                         m:=m+1;
                         f:=true;
                      end
                       else begin
                             r:=copy(am[i],k+1,n-k);
                             am[i]:=r;
                             k:=pos(am[i],'s');
                            end;
                           end;
                          end;if s<m then begin s:=m;writeln('s prostoe',s)end
                          else writeln ('ne to');
                          end;writeln(s);
end.

uses crt;
const nmax=10;
var a:array[1..nmax,1..nmax] of string;
    m,k,i,j,p,ks,mx,imx:byte;
begin
clrscr;
repeat
write('Количество строк до ',nmax,' k=');
readln(k);
until k in [1..nmax];
repeat
write('Количество слов в строке до ',nmax,' m=');
readln(m);
until m in [1..nmax];
writeln('Введите ',k,' строк массива по ',m,' слов до 6 букв:');{просто чтобы на экран вошло}
for i:=1 to k do
 begin
  writeln('Строка ',k);
  for j:=1 to m do
   repeat
   readln(a[i,j]);
   until length(a[i,j])in [1..6];
 end;
clrscr;
writeln('Исходный массив:');
for i:=1 to k do
 begin
  for j:=1 to m do
  write(a[i,j]:7);
  writeln;
 end;
writeln;
mx:=0;
imx:=0;
for i:=1 to k do
 begin
  ks:=0;
  for j:=1 to m do
  for p:=1 to length(a[i,j]) do
  if a[i,j][p]='s' then ks:=ks+1;
  if ks>mx then
   begin
    mx:=ks;
    imx:=i;
   end;
 end;
if imx=0 then write('Нет строк с буквой s')
else write('Наибольше число букв s=',mx,' в строке ',imx);
readln
end.