работа со строками в delphi

[tec46]

Помогите кто нибудь написать програмку для работы со строками. Вот условия:
дан текст, содержащий от 2 до 50 слов, в каждом из которых от 1 до 7 строчных латинских букв; между соседними словами- не менее одного пробела, за последним словом- точка. вывести те слова текста, которые отличны от первого слова. При выводе удалить в каждом символы, имеющие четные номера.

[Mad_Cat]

{консоль Delphi}
{вывести те слова текста, которые отличны от первого слова  При выводе
 удалить в каждом символы, имеющие четные номера.}
 var
s:string;
c:integer;
res,buf,New,One:string;
begin
readln(s);
delete(s,pos('.',s),1);
while s[1]=' ' do delete(s,1,1);
while s[length(s)]=' ' do delete(s,length(s),1);
while pos('  ',s)<>0 do delete(s,pos('  ',s),1);
delete(s,pos('.',s),1);
s:=s+' ';
one:=copy(s,1,pos(' ',s)-1);
Delete(s,1,pos(' ',s));
while s<>'' do begin
buf:=copy(s,1,pos(' ',s)-1);
Delete(s,1,pos(' ',s));
if buf<>one then begin
for c:=1 to length(buf) do
if odd(c) then res:=res+buf[c];
res:=res+' ';
end;
end;
while res[length(res)]=' ' do delete(res,length(res),1);
res:=res+'.';
writeln(res);
Readln;
end.

Result

здравствуйте я говорю вам здравствуйте
я гвр вм.

[tec46]

спасибо) так быстро)

[tec46]

а какие компоненты добавлять?

[tec46]

блин, странно) компилируется нормально, но когда пробую выскакивает ошибка