вывести на экран все двузначные числа которые заканчиваются на 1 (паскаль)

Срочно!!!!

 

 

program gg;

var:i,b,c:integer;

a:array [1..n] of integer;

begin

writeln('vvedite chisla');

readln(a);

begin

for i:=1 to n do

begin

if ((a[i] mod 10 = 1) and (a[i]<99) and (a[i]>10)) then

b:=a[i];

writeln(b);

end;

end.