[_Nox_]

Program test;
Var intro, paint:boolean;

procedure p_intro;
begin
прорисовка картинки;
ожидание нажатия на координаты;
{при нажатии на нужные координаты paint=true};
end;
procedure p_paint;
begin
прорисовка картинок;
delay(1000);
end;

Procedure data;
begin
intro:=true;
paint:=false;
end;

Begin
data;
end.