Проблемы в Delphi

[Николай ПН]

Задача такая. Дано число А(любое которое будет задаваться 20 раз), его сравнивают с числом Б(константа).
Если число А>Б тогда свет точки меняется. Но только в том случае, если число А>Б 3 раза подряд.
Но если допустим число А стало <Б на 2 шаге или любом другом, то счет уже идет для А<Б и когда будет 3 раза меньше, цвет точки меняется. Тоже самое, если равны.
Мне понятно как сделать задание числа А, как поменять цвет. Но мне не ясно, как сделать такой счетчик? Чтобы делал как написано выше

[Филантроп]

как то так

 счетчик =0
repeat
readln(a);
readln(b);
if a<b and (счетчик >=0) then счетчик+1
else if a<b and счетчик<0 
счетчик:=1
else if a>b and счетчик <=0 then счетчик-1
else if a>b and счетчик>0 then счетчик:=1;
until abs(счетчик ) -3=0;
если счетчик=-3 then  a>b 3 раза
если счетчик=3   then a<b 3 раза

[Николай ПН]

что то я уже совсем, а как это можно сделать для

if tlakn>tlaknn then
begin
poleukaz[pomx,pomy].Font.Color:=clyellow;
poleukaz[pomx,pomy].Caption:='h';
form3.poleukaz2[pomx,pomy].Color:=clyellow;
form3.poleukaz2[pomx,pomy].Caption:=formatfloat('#.###E+0',tl akn)+' Pa';
end;
if tlakn<tlaknn then
begin
poleukaz[pomx,pomy].Font.Color:=cllime;
poleukaz[pomx,pomy].Caption:='i';
form3.poleukaz2[pomx,pomy].Color:=cllime;
form3.poleukaz2[pomx,pomy].Caption:=formatfloat('#.###E+0',tl akn)+' Pa';
end;

[Филантроп]

tlakn-это а
tlaknn-это b

 счетчик =0
repeat
ввод(a);
ввод(b);
if a<b and (счетчик >=0) then счетчик+1
else if a<b and счетчик<0 
счетчик:=1
else if a>b and счетчик <=0 then счетчик-1
else if a>b and счетчик>0 then счетчик:=1;
until abs(счетчик ) -3=0;
if a>b then
begin
poleukaz[pomx,pomy].Font.Color:=clyellow;
poleukaz[pomx,pomy].Caption:='h';
form3.poleukaz2[pomx,pomy].Color:=clyellow;
form3.poleukaz2[pomx,pomy].Caption:=formatfloat('#.###E+0',tl akn)+' Pa';
end;
if a<b then
begin
poleukaz[pomx,pomy].Font.Color:=cllime;
poleukaz[pomx,pomy].Caption:='i';
form3.poleukaz2[pomx,pomy].Color:=cllime;
form3.poleukaz2[pomx,pomy].Caption:=formatfloat('#.###E+0',tl akn)+' Pa';
end;

[Николай ПН]

а может счетчик if a<b and (счетчик >=0) then счетчик+1
или if a<b and (счетчик >=0) then счетчик:=счетчик+1