pascal label

Ответ от Sergey Zhukov[эксперт]
var
i,j,sch,hka: integer;
h: tstringlist;
Label Metka;
begin
h:=tstringlist.Create;
h.Add('18');
for i:=0 to 3 do
for j:=0 to 3 do
begin
Metka:
sch:= random(15);
for hka:=0 to h.Count do
if h.Strings[hka]=inttostr(sch) then
Goto Metka;
else
begin
stringgrid1.Cells[i,j]:=inttostr(sch);
h.Add(inttostr(sch));
end;
end;