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

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.