Найти минимальный и максимальный элементы двух массивов

Uses
 CRT;
Var
 a,b,c:array[1..20] of integer;
 i,n,imina,iminb,imaxa,imaxb:integer;
begin
write('N: ');
readln(n);
randomize;
imina:=1;
imaxa:=1;
for i:=1 to n do
begin
 a[i]:=random(10)-3;
 write(a[i]:3);
 if a[i]<a[imina] then
  imina:=i
 else
 if a[i]>a[imaxa] then
  imaxa:=i;
end;
writeln;
writeln('MAX[',imaxa,']:=',a[imaxa],'; MIN[',imina,']:=',a[imina]);
iminb:=1;
imaxb:=1;
for i:=1 to n do
begin
 b[i]:=random(50);
 write(b[i]:3);
 if b[i]<b[iminb] then
  iminb:=i
 else
 if b[i]>b[imaxb] then
  imaxb:=i;
end;
writeln;
writeln('MAX[',imaxb,']:=',b[imaxb],'; MIN[',iminb,']:=',b[iminb]);
if a[imina]>b[imaxb] then
 for i:=1 to n do
 begin
  c[i]:=a[i]+b[i];
   write(c[i]:3);
 end
 else
 if a[imaxa]<b[iminb] then
  for i:=1 to n div 2 do
  begin
   c[i]:=a[i*2]+b[2*i-1];
   write(c[i]:3);
  end;
readkey
end.