Задача по паскалю (строки).

[front]

Дана строка, состоящая слов, разделенных пробелами (одним или несколькими). Определить количество слов, которые начинаются и заканчиваются одной и той же буквой и содержат хотя бы одну букву "А"; Использовать в коде программы функции или процедуры.
Спасибо!

[alex_fcsm]

Не создавайте одинаковые темы в разных разделах!

uses crt;
var s,s1,sub:string;
    i,j,m,n,x:integer;
    a:array[1..100] of string;
    flag:boolean;
procedure Form(s:string);
begin
i:=0;n:=0;
flag:=false;
repeat
inc(i);
if flag and(s[i]=' ') then begin
                   inc(n);
                   a[n]:=sub;
                   sub:='';
                   flag:=false;
                   end;
if s[i]<>' ' then begin
      sub:=sub+s[i];
      flag:=true;
     end;
until i=length(s);
if flag then begin
              inc(n);
              a[n]:=sub;
             end;
end;

function ContainA(s:string):boolean;
begin
if (pos('a',s)<>0)or(pos('A',s)<>0) then ContainA:=true
   else ContainA:=false;
end;

function Equal(s:string):boolean;
begin
if s[1]=s[length(s)] then Equal:=true
   else Equal:=false;
end;

begin
clrscr;
writeln('Input str');
readln(s);
Form(s);
for i:=1 to n do
  if ContainA(a[i]) then inc(x);
writeln('Words with A:',x);
x:=0;
for i:=1 to n do
  if Equal(a[i]) then inc(x);
writeln('Words with same letters:',x);

end.