У кого есть время помогите со строками

[ByFly]

Парни у кого есть время помогите пожалуйста с задачей.

Условие:
Напечатать все слова, отличные от последнего слова, которые начинаются и оканчиваются одной буквой.

[alex_fcsm]

uses crt;
var s,sub:string;
    i,n,t:integer;
    a:array[1..100] of string;

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]<>'.') and(s[i]<>',') then sub:=sub+s[i];
until i=length(s);
if sub<>'' then begin
inc(n);
a[n]:=sub;
end;
writeln;
for i:=1 to n-1 do
 if  (a[i]<>a[n]) and (a[i][1]<>a[i][length(a[i])]) then writeln(a[i]);
end.

[BigMoney]

Мне похожее тоже нужно было, спасибо alex_fcsm

[ByFly]

alex_fcsm спасибо!