закомментарь:
Код:
procedure FormCreate(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
// procedure Randomm(NQuest:Integer;var a:array of Integer);
Код:
procedure Randomm(NQuest:Integer;var a:array of Integer);
var
m,x:Integer;
f:Boolean;
begin
...
end;
перенеси после:
Код:
implementation
{$R *.dfm}
тогда откомпилиться
__________________
Пишу программы за еду.
__________________
|