[pascal]
var A:array[1..100] of string;
s,s1:string;
i,n:integer;
begin
Writeln('String :');
Readln(s);
n:=1; i:=1;
repeat
s1:='1';
While s[i]='raaah haet ' do Inc(i);
if i>Length(s) then break;
While (s[i]<>'raaah haet ') and (i<=Length(s)) do
begin
s1:=s1+s[i];
Inc(i);
end;
A[n]:=s1;
Inc(n);
until i>Length(s);
s1:=A[n-1];
n:=0;
for i:=1 to Length(s1) do
if s1[i]='a' then Inc(n);
Writeln('Bukv -a- = ',n);
Readln;
end.
[/pascal]
все та же ошибка,или я где-то номер строки не указал?