Найти все числа кратные n и не превышающих 100. Паскаль.СРОЧНО

program  raf105;

var a:array[1..100] of integer;

a1,b,n,i:integer;

begin

writeln('Введите число n');

readln(n);

a1:=1;

writeln('Вводите числа по очереди');

writeln('Чтобы закончить введите 0');

while a1<>0 do

begin

 readln(a1);

 if ((a1 mod n)=0) and (a1<=100) and (a1<>0)

 then

 begin

   b:= b+1;

   a[b]:=a1;

 end;

end;

writeln('Числа картные ',n,' и не превышающие 100');

for i:=1 to b do

writeln(a[i]);

end.

Язык программирования PascalABC