Слова в предложении разделены пробелом. Предложение заканчивается «.» «!» «?». Определить слово с максимальным числом букв «а» и количество таких букв «а».- Pascal(Паскаль)

uses crt;

var
  f1: array [1 .. 50] of string;
  f2: array [1 .. 50] of longint;
  i, j, l, l1, l2, k, poz, max: longint;
  a, b: string;

begin
  clrscr;
  write('введите текст:');
  readln(a);
  l := length(a);
  if (a[l] <> '.') or (a[l] <> '!') or (a[l] <> '?') then
  begin
    inc(l);
    a[l] := ' ';
  end
  else
    a[l] := ' ';
  for i := 1 to l do
    if a[i] = ' ' then
    begin
      inc(j);
      f1[j] := b;
      b := '';
    end
    else
      b := b + a[i];
  for i := 1 to j do
  begin
    b := f1[i];
    l1 := length(b);
    for l2 := 1 to l1 do
      if (b[l2] = 'a') or (b[l2] = 'а') then
        inc(k);
    f2[i] := k;
    k := 0;
  end;
  max := f2[1];
  for i := 2 to j do
    if max < f2[i] then
    begin
      max := f2[i];
      poz := i;
    end;
  writeln('слово:', f1[poz]);
  writeln('это слово имеет: ', max, ' буквы "а" ');
  readln;

end.