Напечатать второе слово предложения в обратном порядке — Pascal(Паскаль)

program Slovo;
Uses Crt
Var
k,i:integer;
st,temp:string;
begin
{Запрашиваем предложение}
writeln('Введите предложение');
readln(st);
temp:=st;
{Удаляем все до 1-го пробела}
delete(temp,1,pos(' ',st));
{Ищем конец слова - пробел}
k:=pos(' ', temp);
writeln('Строка - ',st);
write('2-е слово наоборот - ');
for i:=k downto 1 do write(temp[i]);
readln;
end.