мелкие Ошибки в коде

[T@tali]

program1;
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;
   end.

помогите пожалуйста не компилируется программа

[Shift_sk]

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.

крашей 5)

[T@tali]

чего то снова не работает вы не могли бы скинуть откомпелированный файл, видимо мой паскаль глючит

[Shift_sk]

какой у тебя паскаль?

[T@tali]

7 турбо. скиньте пожалуйста откомпилированный

[T@tali]

вот что выдает

[T@tali]

И АВС паскаль там и там ошибка

[Shift_sk]

изображение маленькое!

[Shift_sk]

http://depositfiles.com/files/2hnz8o0wm

[Shift_sk]

открывай через абс паскаль!