Обработка текста, исправить ошибку

Program z1;
var s1,s2:string;
s:array[1..1000] of string;
x,z,k,l,i,j:integer;
begin
writeln('фамилии');
readln(s1);
s1:=s1+' ';
writeln('даты');
readln(s2);
s2:=s2+' ';
l:=length(s1);
x:=1;
z:=1;
j:=1;
i:=1;
k:=0;
repeat
j:=j+1;
if s1[j]=' ' then
repeat
i:=i+1;
if s2[i]=' ' then begin
k:=k+1;
s[k]:=copy(s1,z,j-z)+' '+copy(s2,x,i-x);
z:=j+1;
x:=i+1;
end;
until s2[i]=' ';
until l<j;
writeln(k);
for i:=1 to k do
writeln(s[i]);
end.

var s1,s2,s3:string;
    x,z,k,l,i,j:integer;
begin
writeln('Введите строку из фамилий, разделенных одним пробелом');
readln(s1);
s1:=s1+' ';
writeln('Введите столько же дат рождений в формате дд.мм.гггг, разделеннных одним пробелом');
readln(s2);
s2:=s2+' ';
while pos(' ',s1)>0 do
 begin
  s3:=copy(s1,1,pos(' ',s1)-1)+' '+copy(s2,1,pos(' ',s2));
  writeln(s3);
  delete(s1,1,pos(' ',s1));
  delete(s2,1,pos(' ',s2));
 end;
end.

begin
  ReadString('Введите строку из фамилий, разделенных одним пробелом').Split(' ').
    ZipTuple(ReadString('Введите столько же дат рождений в формате дд.мм.гггг, разделеннных одним пробелом').
             Split(' ')).Select(v -> v[0] + ' ' + v[1]).Println(NewLine);
end.