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

пример "station" = "soitatn"

uses crt;
var s:string;
    n,i:byte;
    c:char;
begin
clrscr;
writeln('Введите строку');
readln(s);
n:=length(s);
for i:=2 to n div 2 do
 begin
  c:=s[i];
  s[i]:=s[n-i+1];
  s[n-i+1]:=c;
 end;
write(s);
readln
end.