Составить схему алгоритма и программу определения кол-ва положительных и отрицательных массива вещественных чисел K={ki}, i=1, t, t — число элементов массива (t ≤ 120). Вывести на экран найденные значения — Pascal(Паскаль)

const n=120;
var a:array[1..n]of real;
    i,t,ko,kp:byte;
begin
randomize;
repeat
writeln('Введите t');
readln(t);
until t<=n;
ko:=0; kp:=0;
for i:=1 to t do
begin
   a[i]:=random(11)-5;
   if a[i]<0 then inc(ko) else
   if a[i]>0 then inc(kp);
   write(a[i]:6:1);
end;
writeln;
writeln('Положительных: ',kp,#13#10,'Отрицательных: ',ko);
readln;
end.