Дано предложение. Найти- в каком из слов больше четырех символов,- буква «а» встречается реже — Pascal(Паскаль)

uses crt;
var s,s1,s2,s3:string;
    mn,k,j:byte;
begin
clrscr;
write('Строка:  ');
readln(s);
s:=s+' ';
while pos('  ',s)>0 do
delete(s,pos('  ',s),1);
writeln('Слова больше 4 букв:');
mn:=255;
while pos(' ',s)>0 do
 begin
  s1:=copy(s,1,pos(' ',s)-1);
  if length(s1)>4 then write(s1,' ');
  k:=0;
  for j:=1 to length(s1) do
  if s1[j]='a' then k:=k+1;
  if k<mn then
   begin
    mn:=k;
    s2:=s1;
   end;
  delete(s,1,pos(' ',s));
 end;
writeln;
writeln('Реже всего буква а встречается в слове ',s2);
readln
end.