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

Var a:string;

i, k:integer;

b:char;

begin

writeln ('Введите строку: ') ;

readln (a) ;

k:=length (a) ;

for i:=1 to round (k/2) do

begin

b:=a[i];

a[i]:=a[k-i+1];

a[k-i+1]:=b;

end;

writeln;

writeln ('Итоговая строка: ') ;

writeln (a:7) ;

end.