Нужно вывести 20 рандомных чисел, и посчитать, сколько положительных, отрицательных, нулевых значений по отдельности! выводит только положительные и всегда пишет, что их 0. Что здесь не так? ПОМОГИТЕЕ!!!

В начале программы надо написать Randomize;вместо 3-ех while используй один for, и 3 переменные которые запоминают числа.вот часть программыfor i:=1 to 20 do beginif M[i]>0 then k:=k+1;if M[i]<0 then t:=t+1;if M[i]=0 then n:=n+1;end;writeln(k,'Положительные');writeln(t,'отрицательные');writeln(n,'Нулевые');