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

Program mas;
Uses crt;
Const n=5;
Var a,b,c: array[1..n] of byte; i: byte;
Begin
Clrscr;
Randomize;
Writeln('Исходные массивы: ');
For i:=1 to n do
begin
a[i]:=random(11);
Write(a[i]:3);
end;
Writeln;
For i:=1 to n do
begin
b[i]:=random(11);
Write(b[i]:3);
end;
Writeln;
For i:=1 to n do
If a[i]>b[i] then
c[i]:=a[i]
else c[i]:=b[i];
Writeln('Результат: ');
For i:=1 to n do
Write(c[i]:3);
End.