Задачка в Паскале

[britva666]

Поменяйте в строке первую и последнюю букву местами.

[__STDC__]

=)
это шутка?

tmp := s[1];
s[1] :=  s[length(s)];
s[length(s)] := tmp;

[Serge_Bliznykov]

а можно и без дополнительной переменной:

s := Copy(s,Length(s),1)+Copy(s,2,Length(s)-2)+Copy(s,1,1);