Помогите пожалуйста решить 3 задачи в Паскале!

[VisTBacK]

Помогите пожалуйста решить 3 задачи в Паскале! Буду очень благодарен!
Собственно вот и задачи:

1) Дано слово,состоящее из четного количества букв. Вывести на экран его первую половину.
2) Дано слово,состоящее из четного количества букв. Поменять местами его половины и вывести на экран.
3) Является ли введенное слово поллиндромом?

Заранее СПАСИБО!!!=)

[eoln]

var
  s, newS: string;
  i: integer;
  b: boolean;
begin
  write('s = ');
  readln(s);
  {1) }
  writeln('s/2 = ', copy(s, 1, length(s) div 2));
  {2) }
  newS := copy(s, 1+length(s) div 2, length(s) div 2) +
    copy(s, 1, length(s) div 2);
  writeln('new slovo = ', newS);
  {3) }
  b := true;
  for i := 1 to length(s) div 2 do
  if s[i] <> s[length(s)+1-i] then b := false;
  if b then write('pollindrom') else write('ne nollindrom');
  readln
end.