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

Program stroka;
var s,c,k: string;
 n: integer;
   begin
    readln(s);
     n:= ord(s[0]);
       if n mod 2 = 0 then
         begin
            delete(s,1,1);
            writeln(s);
         end;
       if n mod 2 <> 0 then
         begin
            c:= s[n];
            k:=s[1];
              delete(s,1,1);
              n:= ord(s[0]);
              delete(s,n,1);
              writeln(c,s,k);
         end;
   end.