Задача на тему процедуры и функции, В ступоре, помогите исправить маленькие ошибки Опции

[kvadrat]

Условие:

Program funkcii;
 function f1(a:array of real; h:real):real;
  begin
   if a[1]<a[1]*a[3] then h:=a[1] else
   h:=a[1]*a[3];
   if a[3]+a[5]<h then h:=a[3]+a[5];
   writeln('MIN=',h);
  end;
 function f2 (b:array of real; m:real):real;

  begin
   if b[2]+b[4]>b[1]+b[3] then m:=b[2]+b[4] else
   m:=b[1]+b[3];
   writeln('MAX=',m);
  end;
 var a:array[1..5] of real;
     b:array[1..5] of real; h,m,z:real;i,j:integer;
begin
for i:=1 to 5 do
  readln(a[i]);
for j:=1 to 5 do
  readln(b[j]);
z:=f1(h,a[i])+f2(m,b[i]);
writeln('z=',z);
end.

Огромный респект и + в репу тому кто поможет