random процедур Опции

[SkyBoy]

как сделать random процедур??

[volvo]

Можно не заморачиваться с указателями:

uses crt;
type
  TProcType = Procedure;

procedure A;  far;
begin writeln('A') end;
procedure B;  far;
begin writeln('B') end;

const
  procs: Array [0..1] of TProcType = (A, B);
var
  i: Integer;
begin
  Randomize;
  for i := 1 to 10 do
    procs[Random(2)];
end.