По заданным 50-элементным действительными массивами a, b и c рассчитать: - Pascal ABC

uses crt;
const n=50;
type mas=array[1..n] of real;
procedure massiv(var a:mas;c:char);
var i:byte;
begin
writeln('Массив ',c);
for i:=1 to n do
 begin
  a[i]:=1+8*random;
  write(a[i]:5:2);
 end;
writeln;
end;
function min1(a:mas):real;
var i:byte;
begin
result:=a[1];
for i:=2 to n do
if a[i]<result then result:=a[i];
end;
function min2(a,b:mas):real;
var i:byte;
begin
result:=a[1]*b[1];
for i:=2 to n do
if a[i]+b[i]<result then result:=a[i]+b[i];
end;
function max1(a:mas):real;
var i:byte;
begin
result:=a[1];
for i:=2 to n do
if a[i]>result then result:=a[i];
end;
function max2(a,b:mas):real;
var i:byte;
begin
result:=a[1]*b[1];
for i:=2 to n do
if a[i]+b[i]>result then result:=a[i]+b[i];
end;
var a,b,c:mas;
    t:real;
begin
massiv(a,'A');
massiv(b,'B');
massiv(c,'C');
if min1(a)<max1(b) then t:=min1(b)/max1(a)+max1(c)/min2(b,c)
else t:=max2(b,c)+min1(c);
write('t=',t:0:2)
end.