Даны два целочисленных массива, состоящие из одинакового числа элементов. Получить третий массив такой же размерности

const
  nmax=100;
type 
  tArr=array[1..nmax] of integer;
  
procedure init(n1: integer; var ar: tArr);
var i: integer;
begin
  for i:=1 to n1 do
  begin
    ar[i]:=random(99)+1;
    write(ar[i],' ');
  end;
  writeln; writeln;
end;
 
var
  a,b,c: tArr;
  i,n: integer;
begin
  write('Введите размер массива: ');
  readln(n);
  writeln('Массив A:');
  init(n,a);
  writeln('Массив B:');
  init(n,b);
  
  writeln('Массив C:');
  for i:=1 to n do
  begin
    c[i]:=max(a[i],b[i]);
    write(c[i],' ');
  end;
  readln;
end.

var
  a,b,c: array[1..100] of integer;
  n,i: byte;
begin
  randomize;
  write('Введите размер массивов n: ');
  readln(n);
  for i:=1 to n do
  begin
    a[i]:=random(99)+1;
    b[i]:=random(99)+1;
  end;
  writeln('Массив A:');
  for i:=1 to n do write(a[i]:4);
  writeln;
  writeln('Массив B:');
  for i:=1 to n do write(b[i]:4);
  writeln;
  writeln('Полученный массив С:');
  for i:=1 to n do
  begin
    if a[i]>b[i] then c[i]:=a[i]
      else c[i]:=b[i];
    write(c[i]:4);
  end;
  readln;
end.