Помогите со строками (Delphi)

[Владимир10101]

Здравствуйте!!!
Дана строка символов, содержащая слова. Определить количество слов, первый и последний символы которых совпадают, если же таких слов нет то выдать на экран соответствующее сообщение. Помогите, пожалуйста, мне это нужно чтобы понять тему строк, а то есть вопросы которые я не могу сформулировать, а по коду я хоть разберу и отвечу на них(вопросы).

[newerow1989]

procedure TForm1.Button1Click(Sender: TObject);
var i,n:integer;
    s,s1:string;
begin
   s:=Edit1.Text;
   n:=0;
   Repeat
      i:=Pos(' ',s);
      If i>0 then
      begin
         s1:=Copy(s,1,i-1);
         s:=Copy(s,i+1,Length(s));
      end else
      begin
         s1:=s;
         s:='';
      end;
      If (s1<>'') and (s1[1]=s1[Length(s1)]) then
         n:=n+1;
   Until s='';
   If n=0 then
      Caption:='Нет таких слов!' else
      Caption:='Кол-во слов: '+IntToStr(n);
end;

[Владимир10101]

Спасибо большое, буду разбираться)))