Задан числовой массив, состоящий из 15 частей. Подсчитать и вывести на

var a: array[1..15] of integer;

i, col: integer;

begin

writeln(Заполните массив с клавиатуры);

for i := 1 to 15 do readln(a[i]);

writeln(Считаем количество частей, которые меньше первого);

for i := 2 to 15 do if a[i] lt; a[1] then col := col + 1;

writeln(Количество частей, которые меньше первого: , col);

end