Создайте программу, запрашивающую у пользователя 10 чисел. Если больше 4-х из них окажутся больше 10, выведите сообщение «Караул! Сейчас все взорвется». Иначе сообщите, сколько введенных чисел больше 10, а сколько больше 5.(Паскаль)

Var
  a, f, f1, i: integer;
 begin
  f := 0;
  f1 := 0;
  write(Введите 10 чисел:);
  for i := 1 to 10 do
  begin
    read(a);
    if(a gt; 10) then f := f + 1;
    if(a gt; 5) then f1 := f1 + 1;
  end;
  if(f gt; 4) then write(Караул! Сейчас все взорвется)
  else
   begin
    writeln(f1, чисел(о)(а) больше 5);
    write(f, чисел(о)(а) больше 10);
  end;
end.