Вводятся m чисел , если ввели больше 10 то отыскать их

Var
    m, i: integer;
    s, p, d: real;

begin
    readln(m);
    p := 1;
    s := 0;
    
    for i := 1 to m do
    begin
        readln(d);
        s := s + d;
        p := p * d;
    end;
    
    if m gt; 10 then writeln(s);
    if m lt; 10 then writeln(p);
end.