тема :простейшие алгоритмы со строковым данным.

[Фрейтор 40-500]

тема :простейшие алгоритмы со строковым данным.

задание: нужно составить программу в турбо паскаль .задача заключается в следующем , ввести фамилию ,имя и отчество как одно данное строкового типа. Вывести имя ильсур в обратном порядке
Нужно включить цикл,условия/
поогите пожалуйста уважаемые посетители этого сайта , срочно надо.

[Leshii]

Uses crt;
var
 s, name: string;
 i, n, pos1: byte;
 buffer: char;
begin
clrscr;
n:=0;
write('Enter FIO:');readln(s);
pos1:=pos(' ',s);{ поиск первого пробела }
i:=pos1+1;{ запоминаем позицию }
while s[i] <> ' ' do begin { пока не пробел }
         inc(n);
         name:=copy(s,pos1+1,n);{ копируем имя }
         inc(i);
end;
{ вывод имени реверсом }
for i:=1 to length(name) div 2 do begin
     buffer:=name[i];
     name[i]:=name[length(name)-i+1]
     name[length(name)-i+1]:=buffer;
end;
writeln(name);
readkey;
end.

[Фрейтор 40-500]

спасибо )))от души братан)