Как сделать сумму чисел меньше 10,причем числа находятся в массиве в интервале 1..1000 (паскаль)

Вот:

uses Crt; var A, B, C; integer; begin ClrScr;    while (A > -10) and (A < 10) do    while (B > -10) and (B < 10) do     begin write(' Ввести два целых числа: ');    readln(A, B);     C:= A * B; writeln(' Произведение равно: ' ,C); end; writeln(' Программа завершена.');    readln end.

На выходе:

uses Crt; var A, B, C; integer; begin ClrScr;    while (A > -10) and (A < 10) do    while (B > -10) and (B < 10) do     begin write(' Ввести два целых числа: ');    readln(A, B);     C:= A * B; writeln(' Произведение равно: ' ,C); end; writeln(' Программа завершена.');    readln end.

Program abc;

    var
    a:array [1..1000] of integer;
    i:integer;
    sum:integer;
begin
    sum:=0;
   for i:=1 to 1000 do
        begin;
        readln(a[i]);
        if a[i] < 10 then
            sum+=1;
        end;
    writeln (sum);
end.