Найти сумму и количество элементов, окачивающихся на 9 (число 99 не включать) - Free Pascal

Формулировка задачи:

На паре получил такую задачу на дом: "Дан целочисленный массив из 15 элементов (Значения от 99 до 1000). Найти сумму и количество элементов, окачивающихся на 9 (число 99 не включать)" и Вот что у меня получилось:

                    Листинг программы
                
 
                        
                          
                    
Program ...
Uses CRT
Const n=15;
Var A: array[1..n] of integer;
    i,m: Integer;
    k: Real;
Begin
  ClrScr;
  Randomize;
  For i:=1 to n do
    A[i]:=Random (901)+1
    Write (A[i], '  ' );
  end;
  m:=0;
  k:=0
  For i:=1 to n do
    Begin
      If (A[i] div 9) mod 9=0 then
      m:=m+1;
      k:=k+A[i];
    end;
   Writeln;
   Writeln (' Сумма чисел оканчивающихся на 9 ' k:10:2);
   Writeln (' Кол-Во чисело оканчивающихся на 9 ' m);
End.

Можете сказать где у меня ошибка/ошибки? Задачу надо сдать на следующей неделе до экзамена, а экзамен 16 июня

Решение задачи: «Найти сумму и количество элементов, окачивающихся на 9 (число 99 не включать)»

Листинг программы

type
  TIndex = 1..15;
var
  a: array [TIndex] of Integer;
  i, e, s, k: Integer;
begin
  for i in TIndex do a[i]:=99+Random(902);
  for e in a do Write(' ',e); WriteLn;
  for e in a do
    if (e mod 9=0) and (e<>99) then begin
      Inc(k); Inc(s,e);
    end;
  WriteLn('Сумма искомых: ',s,', их количество: ',k);
end.

Объяснение кода листинга программы

Объявлен массив a типа Integer, размерностью 15 элементов.
В цикле for заполняют массив a значениями от 99 до 149 (включительно) с шагом 9.
Выводят на экран все значения массива a, по одному в строке.
В цикле for перебирают значения элементов массива a.
Проверяют условие (e mod 9=0) и (e<>99), если условие выполняется, то увеличивают счетчик k на единицу и прибавляют значение e к сумме s.
Выводят на экран сумму s и количество элементов k.