Вывести на экран все буквы в обратном порядке

Var
  s: string;
  count, i: Integer;  begin
  write('Введите строку: ');   
  readln(s);
  count := length(s);
  writeln('Инверсия строки: ');   
  for i := count downto 1 do     
  write(s[i]);
end.