Пожалуйста, решите задачи по информатике, прошу…

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.