Составить программу в паскале. в данном слове произвести обмен первого и последнего символов. (слово любое)

Var
   S:string;
   C:char;
Begin
Write('Введите слово: ');
ReadLn(S);
C:=S[1];
S[1]:=S[Length(S)];
S[Length(S)]:=C;
WriteLn(S);
End.