Написать программу преобразования слова наоборот- Pascal(Паскаль)

Например:
Ввод: Привет мир!
Вывод: !рим тевирП

Uses
  CRT;

var
  s, l: string;
  i: integer;

begin
  Clrscr;
  write('Введите слово: ');
  readln(s);
  for i := 1 to length(s) do
  begin
    l := s[i] + l;
  end;
  writeln(l);
  readkey

end.

Uses
  CRT;

var
  s: string;
  b: char;
  i: integer;

begin
  Clrscr;
  write('Введите слово: ');
  readln(s);
  for i := 1 to length(s) div 2 do
  begin
    b := s[i];
    s[i] := s[length(s) - i + 1];
    s[length(s) - i + 1] := b;
  end;
  writeln(s);
  readkey

end.