Код:
procedure massiv;
begin
a[1]:=1;
n:=0;
for j:=1 to 3 do begin
a[j]:=a[1]+n;
n:=n+3;
end;
end;
procedure randomnoe;
begin
randomize;
k:=RandomRange(1, 4);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
assignfile(f1,'Test.txt');
reset(f1);
for i:=1 to 9 do begin
readln(f1,chislo);
vop[i]:=chislo;
Massiv;
Randomnoe;
Label1.Caption:=vop[a[k]];
end;
CloseFile(F1);
end;
end.
Сделал не много по другому. все отлично работает )
Возможно ли как то упростить код?