Написать программу, которая вводит целые числа с клавиатуры и находит сумму тех из них, которые больше -10 и меньше 10. Процесс продолжается до тех пор, пока не будет введено число, по модулю больше заданного целого числа F (оно тоже входит в сумму). Вывести на экран значение суммы, количество чисел, вошедших в нее и количество введенных чисел — Pascal(Паскаль)

uses crt;
var a, f: integer; k1, k2: word; 
      sum: longint; 
begin
  clrscr;
  write ('введите значение параметра f: ');
  readln (f);
  writeln;
  repeat
   write ('введите число: ');
   readln (a);
   writeln;
   if (a>-10) and (a<10) or (abs (a)>f) then 
    begin
     inc (k1);
     inc (sum, a);
    end;
   inc (k2);
  until abs (a)>f;
  writeln ('Сумма = ',sum);
  writeln ('Всего введено чисел: ',k2);
  writeln ('В сумму вошло чисел: ',k1);
end.