Пусть дан текст, содержащий от 1 до 70 букв. напечатайте буквы текста в обратном порядке. в паскале

Var
  text : string;
  i : integer;
begin
  write('Введите текст: ');
  readln(text);
  write('Результат: ');
  for i := length(text) downto 1 do
    write(text[i]);
end.