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

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.