[nav]

Код:

{найти в тексте слова, которые начинаются и окончиваются на
одну букву и посчитать  их количество.
Например-дано:акула, машина, торт, акула
ответ:акула-2, торт-1}
procedure TForm1.Button1Click(Sender: TObject);
var BykvaEnd,BykvaHome:char; slovo:string;
    count:array[1..100] of integer; poisk,k,g:integer;
begin memo1.Color:=clred; memo2.Color:=clblue;
 memo1.Font.Color:=clwhite; memo2.Font.Color:=clyellow;
 slovo:=memo1.Lines.Text;  k:=1;
 BykvaHome:=slovo[1]; BykvaEnd:=slovo[length(slovo)];
 if BykvaEnd=' '
 then BykvaEnd:=slovo[length(slovo)-1] {пропускаю пробелы, иначе ищу слово}
 else if BykvaHome=BykvaEnd
      then begin poisk:=pos(slovo,memo1.Lines.Text);{ищу повтор слова}
                 count[k]:=count[k]+1 end
      else begin k:=k+1; slovo:=memo1.lines.Text end;
 for g=1 to k do memo2.Lines.Add(slovo+StrToint(count[g]))
end;{procedure}

может я зря memo2 ввёл? Прога совсем не идёт