Напишите программку, которая воспринимает с клавиатуры 12 целых чисел и выводит

var a, b, i, n: integer; // b 1-ое число; i счётчик; n количество чисел, превышающих 1-ое число; a переменная значений чисел со 2-ого по 11-ое
begin
n:=0;
writeln(Введите 12 чисел с клавиатуры.);
readln(b);
for i:=1 to 11 do begin
readln(a);
if agt;b then n:=n+1;
end;
writeln(Количество чисел, больших, чем 1-ое число: , n);
end.