В паскале поменять первую и последнюю букву местами

ьаскалп

А если серьезно то:

Program help;
Var s : String;
c : Char;

Begin
Write('Введи строку: ');
ReadLn(s);
c := s[1];
s[1] := s[Length(s)];
s[Length(s)] := c;

WriteLn;
Write(s);
ReadLn;
End.