[Asira]

Помогите найти ошибки...
Дана строка S, слова в которой разделены пробелами и знаками препинания. Написать программы, решающие следующие задачи:
В каждом слове поменять местами левую и правую половины. Например, из слова ”задача” получится ”ачазад”. Если количество букв нечетное, то среднюю букву оставить на месте.

Код:

{$APPTYPE CONSOLE}

uses
  SysUtils;
const znaki=',.";: -?!';
 var s,s2,s1,s3:string;
     ns,ks,i,j,k,p,m:integer;

begin
writeln('Enter string ');
 readln(s);
 k:=1;
while k<=length(s) do
  begin
  k:=1;
   while (pos(s[k],znaki)<>0) and (k<=length(s)) do
    k:=k+1;
    ns:=k;
   while (pos(s[k],znaki)=0) and (i<=length(s)) do
    i:=i+1;
    ks:=i;
if i mod 2 =0 then
p:= i div 2;

s1:= copy(s,ns,p);

s2:=copy(s,p+1,p);

s3:=s2+s1;

writeln(s3);
if i mod 2<>0 then
s1:= copy(s,ns,p);
s2:=copy(s,p,p);
s3:=s2+s1;
writeln(s3);
end;
writeln(s3);
readln;
end.

Ну помогите найти ошибки очень надо.......!!!!!!!!!!!!!!