ПОДПРОГРАММЫ С ПАРАМЕТРАМИ ПРОЦЕДУРНОГО ТИПА

[Kira09]

Помогите пожалуйста написать программу.. завтра зачет, а как написать-я не знаю..

[Stilet]

Давай так: Вот тебе пример передачи в процедуру указателя на другую процедуру

type
 tp=procedure;

 procedure aga;begin write('aga');end;
 procedure ogo;begin write('ogo');end;

 procedure okak(p:tp);begin p;end;
begin

okak(aga);
okak(ogo);

readln;
end.

Твоя задача почитать в книге про те слова, которые ты видишь в примере. Ок?