Напишите программу обращения слова наоборот. То есть: даётся слово «word» -> «drow» — Pascal(Паскаль)

var s             : string;
    len, i, count : integer;
    ch            : char;

begin
  Write('Vvedite stroky, kotoruju nujno obratit: '); ReadLn(s);
  len   := length(s);
  count := len div 2;
  Inc(len);

  for i:=1 to count do
  begin
    ch       := s[i];
    s[i]     := s[len-i];
    s[len-i] := ch;
  end;

  WriteLn('Result word: ', s); 
  WriteLn;
  Write('Press any key for continue...'); ReadLn;
end.