написать программу в паскале

[Sveta-psv]

Описати процедуру вирізки зі слова і склейки слів. Складіть програму, яка з даного масиву слів вибирає ті, які мають непарну довжину і вирізає з них 2k-1 середніх букв, а ліву та праву частини, які залишились, міняє місцями.

From Stilet:
Описать процедуру вырезания и склеивания слов. Написать программу, которая из данного массива слов выбирает те, что имеют... х.з. какую длину, нечетную навреное... и вырезает из них 2*к-1 символов из середины, а левую и правую части меняет местами

[Stilet]

var a:array[1..1] of string;
i,k:integer;
begin
 readln(k);
 for i:=1 to 1 do readln(a[i]);
 for i:=1 to 1 do begin
  if (Length(a[i]) mod 2)<>0 then 
   write(
    copy(a[i],
      Length(a[i])-((2*k-1)),
      (2*k-1)
    ) ,
    copy(a[i],
      (Length(a[i]) div 2)-((2*k-1) div 2),
      (2*k-1)
    ), 
    copy(a[i],
      1,
      (2*k-1)
    ) ,' '
   );
 end; readln;
end.

Если не ошибаюсь.

[Sveta-psv]

спасибо вам огромное