В каждом из массивов найти сумму квадратов и сумму кубов положительных элементов

program Daemon025;
    uses crt;
    const nmax=100;
    type Mas=array[1..nmax]of integer;
    
Function sum(Massiv:Mas;masSize:integer):integer;
    var j:integer;
Begin
    sum:=0;
    for j:=1 to masSize do
    if Massiv[j]>0 then sum:=sum+sqr(Massiv[j]);
End;
//------------------------------------------------------------------------------
Function cube(Massiv:Mas;masSize:integer):integer;
    var j:integer;
Begin
    cube:=0;
    for j:=1 to masSize do
    if Massiv[j]>0 then cube:=cube+sqr(Massiv[j])*Massiv[j];
End;
//------------------------------------------------------------------------------
    
    var T,F:Mas;
        i:integer;
begin
  Randomize;
  Writeln('Массив T: ');
  for i:=1 to 7 do
  Begin
    T[i]:=random(20)-10;
    Write(T[i]:3,' ');
  End;
  Writeln;
  Writeln('Массив F: ');
  for i:=1 to 4 do
  Begin
    F[i]:=random(20)-10;
    Write(T[i]:3,' ');
  End;
  Writeln;
  Writeln('Cуммa квадратов положительных элементов T: ',sum(T,7),'  F: ',sum(F,4));
  Writeln('Cуммa кубов положительных элементов T: ',cube(T,7),'  F: ',cube(F,4));
  Readln;
end.