Дан массив из 10 частей целого типа определить количество положительных и

Var 
mas: array[1..10] of integer; 
plus, minus, i:integer;
begin
randomize;
write('Массив: ');
for i := 1 to 10 do begin 
mas[i]:=random(10)-5; 
write(' ',mas[i]); 
if (mas[i] gt; 0) then   
plus:=plus+1; 
if (mas[i] lt; 0) then   
minus:=minus+1; 
end;
writeln();
writeln('Положительных = ', plus);
writeln('Отрицательных = ', minus);
end.