Объединить элементы данных файлов в один файл Z так, чтобы он тоже был упорядочен по неубыванию

uses crt;
const n=30;
var x,y,z:file of integer;
    a,b,i,j:integer;
begin
clrscr;
randomize;
assign(x,'Name1');
rewrite(x);
assign(y,'Name2');
rewrite(y);
assign(z,'Name3');
rewrite(z);
writeln('Содержание файла X:');
a:=1;
for i:=1 to n do
 begin
  a:=a+random(5);
  write(x,a);
  write(a:4);
 end;
writeln;
writeln;
writeln('Содержание файла Y:');
a:=1;
for i:=1 to n do
 begin
  a:=a+random(5);
  write(y,a);
  write(a:4);
 end;
writeln;
writeln;
seek(x,0);
seek(y,0);
i:=0;j:=0;
while(i<=filesize(x)-1)or(j<=filesize(y)-1) do{пока не конец обойх файлов}
 begin
  if (i<=filesize(x)-1)and(j<=filesize(y)-1) then{если оба файла не закончились}
   begin
    seek(x,i);
    read(x,a);
    seek(y,j);
    read(y,b);
    if a<b then
     begin
      write(z,a);
      inc(i);
     end
    else
     begin
      write(z,b);
      inc(j);
     end;
   end
  else if j>filesize(y)-1 then{если второй кончился}
   begin
    seek(x,i);
    read(x,a);
    write(z,a);
    inc(i);
   end
  else if i>filesize(x)-1 then{если первый кончился}
   begin
    seek(y,j);
    read(y,b);
    write(z,b);
    inc(j);
   end;
 end;
close(x);
close(y);
seek(z,0);
writeln('Слияние файлов:');
while not eof(z) do
 begin
  read(z,a);
  write(a:4);
 end;
close(z);
readln
end.