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

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.