Создание последовательностей на основе двух данных

[iamhated]

Не знаю как доработать данную программу.

Даны две последовательности чисел a1, a2, ..., an и b1, b2, ..., bn. Сформируйте новые последовательности, элементы которых вычисляются по следующему правилу:
ai = max(ai, bi), bi = min(ai, bi), i = 1, 2, ..., n.

program l8_18;
uses
 crt;
type
 mas = array[0..9] of byte;
procedure vvedM(var fin:text;var m:integer; var a:mas; filename:string);
var
 i,j:integer;
begin
 clrscr;
 assign(fin,filename);
 reset(fin);
 read(fin,m);
 for i:=1 to m do
  read(fin,a[i]);
 close(fin);
end;
procedure vivedM(var fout:text;m:integer; a:mas; filename:string);
var
 i,j:integer;
begin
 assign(fout,filename);
 rewrite(fout);
 for i:=1 to m do
 begin
  for j:=1 to m do
   write(fout,a[i,j]:5);
  writeln(fout);
 end;
 close(fout);
end;
begin
 vvedM(f,m,a,'l8_18in.txt');
 vvedM(f,m,a,'l8_18.2in.txt');
 while not eof do
 begin
  while not eof do
  begin
   for i:=1 to n do
   begin
    if a[i]>a[i+1] then
    begin
     append(a[i],'l8_18in.txt');
     inc(i);
     else del(a[i]);
    end;
   end;
  end;
 end;
 while not eof do
 begin
  while not eof do
  begin
   for i:=1 to n do
   begin
    if a[i]<a[i+1] then
    begin
     append(a[i],'l8_18in.txt');
     inc(i);
     else del(a[i]);
vivedm(g,m,a,'l7_18out.txt');
vivedm(g,m,a,'l7_18.2out.txt');
readkey;
end.