Программу оформить в паскале)

Даны натуральное число n и целые числа. Выяснить, верно ли, что количество тех чисел, которые меньше 20, равно пяти.

Program p1;

Var: menee_dvadcati, n, i, x:integer;

Begin

x:=0; / / обнуляем x

Readln (n) ; / / считываем n

For i:=1 to n do

Begin

Readln (x) ; / / ввод числа

If x<20 then//проверка (больше 20?)

menee_dvadcati:=menee_dvadcati+1; //считаем количество

end;

If menee_dvadcati>5 then / / проверка (больше 5?)

Writeln ('Да') else

Writeln ('Нет') ;

End.