Программа на Pascal:

Вводятся целые числа. Признак конца - ввод числа 0. Определить, сколько двузначных четных чисел, оканчивающихся на 2, расположено между 2-ым и 5-ым числами

Помогите пожалуйста !

Премного вам благодарен !

Var   A,B,i:integer;   k:byte;Begini:=0;k:=0;RepeatRead(A);i:=i+1;if (i>2)and(i<5) then   Begin   B:=Abs(A);   if (9<B)and(B<100)and(B mod 10 = 2) then k:=k+1;   End;Until (A = 0)or(i>=5);if A<>0 then   Repeat   Read(A);   Until A = 0;WriteLn(k)End.