СРОЧНО, ПОЖАЛУЙСТА!!!!! паскаль. введите слово с клавиатуры. если длина слова четная, то удалить первую букву, а если нечетная длина, то поменять местами ервую и последнюю буквы

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.