Арус массив Numbers[1 ... 50] заполнен случайными числами в пределах от 1 до 100. Определить сколько элементов массива отличаются от последнего элемент

Const N = 50;

var

numbers: array [1 ... 50] of integer;

i, k: integer;

begin

k : = 0;

for i:=1 to N do

numbers[i] : = Random (100);

for i:=1 to N do

if numbers[i] numbers[N] then

inc (k);

write (k);

end.