Работа со строками

[gani84]

Ввести фамилию, имя и отчество как одно данное строкового типа. Вывести имя в обратном порядке.

[Google2010]

readln(s);
k:=pos(' ',s);
delete(s,1,k);
i:=1;s1:='';
while s[i]<> ' ' do begin
s1:=s[i]+s1;
inc(i);
end;
writeln(s1);