Дана строка. поменять местами первый символ с последним символом этой строки.

Это выглядет вот так:
var s:string;
c:char;
begin
readln(s);
c:=s[1];
s[1]:=s[length(s)];
s[length(s)]:=c;
write(s)
end.