Кодирование методом контроля четности

Var 
i,k,q,g,l,h,b,f:integer; 
a: string; 
begin 
writeln('Введите k'); 
readln(k); 
b:=0;
k:=k-1;
writeln('Введите последовательность двоичных чисел'); 
read(a); 
q:=0; 
for i:=1 to length(a) do 
q:=q+1; 
repeat
if q mod k = 0 then 
else
delete(a,length(a),1);
q:=length(a); 
writeln ('сокращаем количество символов до: ',q);
until (q mod k =0 );
g:=k;
repeat
insert (' ', a, g+1);
q:=q+1;
g:=g+k+1;
until g=q;
writeln ('Преобразуем строку: ',a);
h:=k+1;
for l:=1 to length(a) do
if (a[l]=' ') then
for f:=1 to h do
if a[f]='1' then 
b:=b+1
else b:=b;
if b mod 2 = 0 then
a[h]:='0'
else
a[h]:='1';
h:=h*2;
b:=0;
writeln ('Закодированная последовательность: ',a);
end.

Var 
i,k,q,g,l,h,b,f:integer; 
a: string; 
begin 
writeln('Введите k'); 
readln(k); 
b:=0;
k:=k-1;
writeln('Введите последовательность двоичных чисел'); 
read(a); 
q:=0; 
for i:=1 to length(a) do 
q:=q+1; 
repeat
if q mod k = 0 then 
else
delete(a,length(a),1);
q:=length(a); 
writeln ('сокращаем количество символов до: ',q);
until (q mod k =0 );
g:=k;
repeat
insert (' ', a, g+1);
q:=q+1;
g:=g+k+1;
until g=q;
writeln ('Преобразуем строку: ',a);
 
h:=2;
l:=h-1;
 
repeat // ВОТ ОТСЮДА НЕ ПОЛУЧАЕТСЯ
 
if a[h]<>' ' then 
else // если значение пробел, то выполняем перебор по подстроке от 1 до пробела
 
for f:=l to h // сам перебор
do
begin
if a[f]='1' then // ищем еденицы
b:=b+1;
end;
 
if b mod 2 = 0 then // если количество едениц четное, то ставим 0, если нечетное, то 1
a[h]:='0'
else
a[h]:='1';
 
l:=h+1; // меняем точку отсчета
h:=h+h; // меняем конечную точку
b:=0; // обнуляем b и начинаем сначала
until h>length(a);
writeln ('Закодированная последовательность: ',a);
end.

begin
  var k := ReadLnInteger('Введите k:'); k -= 1;
  var s := ReadLnString('Введите последовательность двоичных чисел:');
  Delete(s, s.Length - s.Length mod k + 1, k);
  WriteLn('Сокращаем количество символов до ', s.Length div k * k, ': ', s);
  for var i := 1 to s.Length div k do insert(' ', s, i * k + i);
  WriteLn('Преобразуем строку: ', s);
  for var i := 1 to s.Length div (k + 1) do
  begin
    var c := 0;
    for var j := (i - 1) * (k + 1) + 1 to i * (k + 1) - 1 do
      if s[j] = '1' then c += 1;
    s[i * (k + 1)] := chr(48 + c mod 2);
  end;
  WriteLn('Закодированная последовательность: ', s)
end.