Строки

[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.