перебор строковых переменных

[neprogrammist]

дана задача
Вводится к-число символов и последовательность двоичных символов, длина которой кратна к-1. Если кратность нарушается то последние символы игнорируются для каждой комбинации из к-1 символов по методу контроля четности определяется значение к-го контрольного символа и вся комбинация из к символов добавляется в результирующую последовательность которая выводится на экран
помогите с решением, ниже то что сделал сам

Program Lr1;
uses crt;
var s,s1,s2:string;
    j,i,n,a,k,z,q:INTEGER;
begin
ClrScr;
writeln('vvedite k:');
readln(k);
randomize;
n:=(k-1)*4;
repeat
   begin
      a:=random(2)+0;
      z:=z+1;
      str(a,s1);
      insert(s1,s,z);
    end;
until z=20;
{for i:=1 to 4 do }
    insert(s,s2,i);
   { j:=1;
    s2:=copy(s,j,k);}
    writeln(s);
    writeln(s2);
readln;
end.