Решить задачи Pascal abc (масивы)

1) задача

var i, n: byte;
a, b, c: array [1..100] of integer;
begin
n:=10;
randomize;
writeln ('Произведение':(n*3+15));
a[n+1]:=1;
b[n+1]:=1;
c[n+1]:=1;
for i:=1 to n do
begin
a[i]:= 1+ random(5);
a[n+1]:=a[n+1]*a[i];
b[i]:= 1+ random(5);
b[n+1]:=b[n+1]*b[i];
c[i]:= 1+ random(5);
c[n+1]:=c[n+1]*c[i];
end;
for i:=1 to n do write (a[i]:3);
writeln (a[n+1]:10);
for i:=1 to n do write (b[i]:3);
writeln (b[n+1]:10);
for i:=1 to n do write (c[i]:3);
writeln (c[n+1]:10);
if (a[n+1] > b[n+1]) and (a[n+1] > c[n+1] ) then writeln ('В массиве № 1 произведение элементов максимально')
else
if (b[n+1] > a[n+1]) and (b[n+1] > c[n+1] ) then writeln ('В массиве № 2 произведение элементов максимально')
else
writeln ('В массиве № 3 произведение элементов максимально')
end.

2 задача

var i, j, n, maxa, max1, maxb, max2: integer;
a, b: array [1..100, 1..100] of byte;
begin
n:=7;
randomize;
writeln ('Массив A':(3*n-7),' ':3*n, 'Массив B');
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i, j]:= random (100);
if (i=1) and (j=1) then max1:=a[i,j];
if a[i,j] > max1 then max1:=a[i,j];
write(a[i, j]:3);
end;
write (' ':8);
for j:=1 to n do
begin
b[i, j]:= random (100);
if (i=1) and (j=1) then max2:=b[i,j];
if b[i,j] > max2 then max2:=b[i,j];
write(b[i, j]:3);
end;
writeln;
end;
writeln;
maxa:=a[1,n];
for i:=1 to n do
if a[i, n+1-i] > maxa then maxa:=a[i, n+1-i];
maxb:=b[1,n];
for i:=1 to n do
if b[i, n+1-i] > maxb then maxb:=b[i, n+1-i];
//for i:=1 to n do write (a[i, n+1-i]:3); writeln;
//for i:=1 to n do write (b[i, n+1-i]:3); writeln;
writeln ('максимальное на побочной диагонали ', maxa, ' и ', maxb);
writeln ('максимальное в массиве ', max1,' и ', max2);
if maxa > maxb then writeln ('максимальный элемент в побочной диагонали массива A = ', maxa)
else writeln ('максимальный элемент в побочной диагонали массива B = ', maxb);
writeln ('_'*(3*2*n+10));
for i:=1 to n do
begin
a[i,i]:=max1;
b[i,i]:=max2;
end;
for i:=1 to n do
begin
for j:=1 to n do
write(a[i, j]:3);
write (' ':8);
for j:=1 to n do
write(b[i, j]:3);
writeln;
end;
end.