Вопрос по логической переменной fl:boolen(паскаль)

[aslanbek999]

Составить процедуру, вычисляющую значение TRUE, если количество отрицательных элементов одномерного массива больше количества его нулевых элементов, и значение False в противном случае.

k-количество отрицательных элементов
l-количество нулевых элементов
A=(0;-5;95;-0.006;0;7;-131;1)
Fl:boolen

Часть кода которая вычисляет количество отрицательных и нулевых эл-тов

...l:=0;
   k:=0;
   for i:=1 to 7 do
    if A[i]=0 then
     l:=l+1;
    if A[i]<0 then
     k:=k+1;
   if k>l then...

И как теперь дальше записать в коде чтобы он "вычислил значение TRUE"

[Sazary]

if (тра-та-та) then Fl := true
else Fl := false;

Только не boolen, а boolean

А фраза

вычисляющую значение TRUE

некорректна.

[aslanbek999]

Большое спасибо!
А задание слово в слово из учебника.

А если в дальнейшем я захочу использовать эту переменную, то будет ли корректна запись

IF fl=true then... else...

[Sazary]

то будет ли корректна запись

Да. Более того, можно даже писать:

if fl then... else

и вот так тоже:

if not fl then... else...

[aslanbek999]

+1000 /

[evg_m]

и даже

fl:= ( sum > 0 ); //вместо if sum>0 then fl:=true else fl:=false;