Непонятно только, почему в условии написано "одинаковых массива", если они разные. Наверное, имелось в виду "одинакового размера".
var i: integer;
var A, F, G: array [1..20] of integer;
begin
// Заполним массивы
randomize;
For i:= 1 to 20 do
begin
A[i]:=random(201)-100;
F[i]:=random(201)-100;
end;
// Составляем третий массив G
For i:= 1 to 20 do
begin
if (A[i]<F[i]) then G[i]:=A[i]
else G[i]:=F[i];
end;
// Выводим на экран
writeln('A':5,'F':5,'G':5);
For i:= 1 to 20 do
begin
writeln(A[i]:5,F[i]:5,G[i]:5);
end;
end.
