Двоичные файлы

[stas45rus]

подскажите пжл.
даны 2 файла.в первом файле 256 двоичных символов,во втором 32.нужно,чтобы программа брала из первого файла каждый раз по 64 символа,из второго 32 символа и складывала последние 32 символа из вытянутых 64 символов первого файла с 32 символами второго файла по mod2,а результат выводится в третий файл.

вот примерный код:
Код Pascal

 Reset(z); {сл.числа}
 Reset(w); {ключ}
 Rewrite(r);
 While not (EoLn(z)) Do
  begin
    n:=0;  
    q:=0;
    Repeat
      Inc(n);
      Inc(q);
      Read(z,ch);
      Val(ch,l,k);
      If (q>32) Then 
                 begin
                   Read(w,ch1);
                   Val(ch1,p,v);
                   b[n]:=l xor p;
                 end
       Else b[n]:=l;
     Until n=64;
    For i:=1 To n Do
     Write(r,b[i]);
write(r,'       ');
  end;
 Close(z);
 Close(w);
 Close(r);

здесь выполняется только для первых 64 символов.как зациклить вывод символов из 2 файла пока не закончатся символы в первом файле?