Написать программу замены первой буквы на последнюю, а последнюю на первую — Pascal(Паскаль)

program stroka;
var s:string;
x:char;
k:integer;
begin
writeln ('vvedite stroku');
readln (s);
k:=length(s);
x:=s[1];
s[1]:=s[k];
s[k]:=x; 
end;