Написать с 5 встроенными функциями

uses crt;
const n=12;
var a:array[1..n] of integer;
    i:integer;
 
function Max:integer;
var mx:integer;
begin
mx:=a[1];
for i:=2 to n do
 if a[i]>mx then
  mx:=a[i];
Max:=mx;
end;
 
function Min:integer;
var mn:integer;
begin
mn:=a[1];
for i:=2 to n do
 if a[i]<mn then
  mn:=a[i];
Min:=mn;
end;
 
function Sum:integer;
var s:integer;
begin
s:=0;
for i:=1 to n do
 s:=s+a[i];
Sum:=s;
end;
 
function Pol:integer;
var p:integer;
begin
p:=0;
for i:=1 to n do
 if a[i]>0 then
  inc(p);
Pol:=p;
end;
 
function Otr:integer;
var t:integer;
begin
t:=0;
for i:=1 to n do
 if a[i]<0 then
  inc(t);
Otr:=t;
end;
 
begin
ClrScr;
Randomize;
for i:=1 to n do
 begin
  a[i]:=random(20)-10;
  Write(a[i],'  ');
 end;
Writeln;
Writeln('Max: ',max);
Writeln('Min: ',min);
Writeln('Kol-vo pol: ',pol);
Writeln('Kol-vo otr: ',otr);
Writeln('Summa: ',sum);
Readln;
end.