Задание на строки

[SVing]

Дан текст, слова которого отделяются друг от друга пробелами. Все слова, кото-рые начинаются и заканчиваются одной и той же буквой, заменить словом максималь-ной длины.
Распечатать исходный и полученный тексты.

Помоги разобраться.
Зарание спасибо!

[SVing]

помогите ожалуйсто , не может быть что никто не знает

[Mad_Cat]

var oldS:string;
Vec:array[1..100] of string[80];
buf:string;
i,k:integer;
max:integer;
begin
Readln(oldS);
writeln('old string--->',olds);
olds:=olds+' ';
i:=1;k:=0;buf:='';
while i<=length(oldS) do
begin
if oldS[i]<>' ' then buf:=buf+oldS[i]
else
if buf<>'' then
  begin
    k:=k+1;
    vec[k]:=buf;
    buf:='';
  end;
 i:=i+1;
 end;
 max:=1;
 For i:=1 to k do
 if length(vec[i])>length(vec[max]) then max:=i;
 For i:=1 to k do
 if vec[i][1]=vec[i][length(vec[i])] then vec[i]:=vec[max];
 writeln('new string--->');
 For i:=1 to k do
 write(vec[i],' ')
 end.

[SVing]

Спасибо большое!!!!!!!