Помощь с программой на Делфи

[denhik72]

Из строки слов вывести такие слова, которые начинаются и заканчиваются на одну и ту же букву

[type_Oleg]

Выделять из строки слова, а потом проверять:

 if slowo[1]=slowo[Length(slowo)] then // выводить slowo

[newerow1989]

type tArrs=array of string;

procedure Analiz(s:string; var st:tArrs);
var i,count:integer;
    s1:string;
begin
   count:=0;
   SetLength(st,0);
   While s<>'' do
   begin
      i:=Pos(' ',s);
      If i>0 then
      begin
         s1:=Copy(s,1,i-1);
         Delete(s,1,i);
      end else
      begin
         s1:=s;
         s:='';
      end;
      If s1<>'' then
      begin
         count:=count+1;
         SetLength(st,count);
         st[count-1]:=s1;
      end;
   end;
end;

var s:string;
    st:tArrs;
    i:integer;
begin
   Write('s = '); Readln(s);
   Analiz(s,st);
   For i:=Low(st) to High(st) do
      If st[i][1]=st[i][Length(st[i])] then
         Writeln(st[i]);
   Readln;
end.

[newerow1989]

type tArrs=array of string;

procedure Analiz(s:string; var st:tArrs);
var i,count:integer;
    s1:string;
begin
   count:=0;
   SetLength(st,0);
   While s<>'' do
   begin
      i:=Pos(' ',s);
      If i>0 then
      begin
         s1:=Copy(s,1,i-1);
         Delete(s,1,i);
      end else
      begin
         s1:=s;
         s:='';
      end;
      If s1<>'' then
      begin
         count:=count+1;
         SetLength(st,count);
         st[count-1]:=s1;
      end;
   end;
end;

var s:string;
    st:tArrs;
    i:integer;
begin
   Write('s = '); Readln(s);
   Analiz(s,st);
   For i:=Low(st) to High(st) do
      If st[i][1]=st[i][Length(st[i])] then
         Writeln(st[i]);
   Readln;
end.