Скажите в чем ошибка, как в массиве найти арифметическую прогрессию и вывести элементы на экран?

[Lodyr]

program city;
const znp=',.!?:;';
var a:array [1..100] of string;
    b:array [1..100] of integer;
    s:string;
    i,l,beg,d,n,k:byte;
    begin
    n:=1;
    k:=1;
    readln (s);
    l:=length(s);
    i:=1;
    while (i<=l) do
      begin
      while (i<=l)and(pos(s[i],znp)<>0) do
      inc(i);
      beg:=i;
      while (i<=l)and(pos(s[i],znp)=0) do
      inc(i);
      d:=i-beg;
      if d>0 then
      a[n]:=copy(s,beg,d);
      b[n]:=d;
      inc(n);
      inc(k);
      end;
   begin 
   for n:=1 to k do
   write(a[n], ':');
   writeln(b[n]);
   end;
end.

здесь написал программу но она не работает, по хорошему должна вносить в один массив слова и количество букв соотвественного слова в другой.

repeat
begun:=1;
i:=2;
z:=b[i]-b[i-1];
if (z=b[i+1]-b[i]) then
inc(i);
if (z<>b[i+1]-b[i]) then
{выписать элементы 2 массива букв на экран}
z:=0;
z:=b[i+2]-b[i+1];
until (i<=k)