Составить программу, формирующую массив b[2], каждый элемент которого является максимальным из соответствующих элементов массивов а[4] и с[4]

Var

i:integer;

a, c:array[1 ... 4]of integer;

b:array[1 ... 2]of integer;

begin

write ('Массив а: ') ;

for i:=1 to 4 do

begin

a[i]:=random (10) ;

if a[i]>b[1] then b[1]:=a[i];

c[i]:=random (10) ;

if c[i]>b[2] then b[2]:=c[i];

write (a[i],' ') ;

end;

writeln;

write ('Массив c: ') ;

for i:=1 to 4 do write (c[i],' ') ;

writeln;

write ('Массив b: ') ;

for i:=1 to 2 do write (b[i],' ') ;

end.