[Rock2roll]

Нет, это не то. Вот код:

Program test;
Var intro, paint:boolean;

procedure intro;
begin
прорисовка картинки;
ожидание нажатия на координаты;
{при нажатии на нужные координаты paint=true};

procedure paint;
begin
прорисовка картинок;
delay(-1);
end;

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

Procedure intro;
Begin
data;
end.

Что тут неправильно???