Delphi заготовки

Дана строка символов до точки. Удалить из нее все слова, начинающиеся с буквы «а».




uses crt;
var s,sub:string;
 i,n:integer;
 a:array[1..100] of string;
 ch:char;
begin
clrscr;
writeln('Input str');
readln(s);
i:=0;n:=0;
repeat
inc(i);
if (s[i]=' ')and(s[i+1]<>' ') then begin
 inc(n);
 a[n]:=sub;
 sub:='';
 end
else if (s[i]<>' ')and(s[i]<>'.') then sub:=sub+s[i];
until i=length(s);
if sub<>'' then begin
inc(n);
a[n]:=sub;
end;
writeln;
writeln('Input char');
readln(ch);
for i:=1 to n do
 if a[i][1]<>ch then write(a[i],' ');
end.


автор KaLLIaK 
http://programmersforum.ru/member.php?u=208004
с сайта 
http://programmersforum.ru/showthread.php?t=202877