строки в паскале

[tinton]

Вечер добрый нужна помощь..требуется написать программу которая меняет местами первый и последний символы в строке.
хелп плз

[Костя КС]

program t;
var
s : string;
x : char;

begin
  readln(s);
  x := s[1];
  s[1]:=s[length(s)];
  s[length(s)]:=x;
  writeln(s);
end.

[phomm]

var ch : char;
s : string;
begin
//вод строки
ch := s[1];
s[1] := s[length(s)];
s[length(s)] := ch;
//вывод строки
end;

[tinton]

спасибо)