uses
Graph,crt;
var
d,m,x,f,z,i:integer;
c:char;

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

begin
d:=detect;
f:=200;
z:=200;
 i:=1;

initgraph(d,m,'C:\TP\BGI');
SetColor(4);
OutTextXY(f,z,'Poisk po nomery');
SetColor(3);
OuttextXY(f,z+20,'Poisk po F.I.O.');
SetColor(3);
OuttextXY(f,z+40,'Posmotret vse nomera');
SetColor(3);
OuttextXY(f,z+60,'Dobavit nomer');
Rectangle(198,190,360,270);
Rectangle(196,188,362,272);
Rectangle(197,189,361,271);
setcolor(10);
x:=180;
Outtextxy(1,5,'Esc-Exit');
outtextxy(x,450,'All rights reserved!Made by Rosinets Sergey');
repeat
C:=readkey;
  a[3]:=3;
a[4]:=3;
a[2]:=3;
a[1]:=4;
i:=i+1 ;
a[i-1]:=3;
a[i]:=4;


if c=#97 then
{#97-eto bukovka 'a" angl};
begin

SetColor(a[1]);
 OutTextXY(f,z,'Poisk po nomery');
 Setcolor(a[2]);
OuttextXY(f,z+20,'Poisk po F.I.O.');
Setcolor(a[3]);
OuttextXY(f,z+40,'Posmotret vse nomera');
Setcolor(a[4]);
OuttextXY(f,z+60,'Dobavit nomer');
end;
if i=5 then
i:=1;

until c=#27;
end.