Работа со строковыми данными, delphi

[aleksa_c]

Есть вот такая процедурка по нажатию кнопки. Почему операция p:=p+n выполняется только в случае если 'а' состоит из нечетного количества элементов?


a:=Edit1.text;
b:=StrToInt(Edit2.text);
p:='';
n:='';
for j:=1 to b do
begin
n:=a[j];
w:=j;
k:=Length(a);
while (w<k) and (w<>k) do
begin
n:=n+a[w+b];
w:=w+b;
end ;
p:=p+n;
end;