Memory Spiel -> Computer ziehen

[KleineAerztin]

Ok, das hab ich jetzt, aber das Spiel stürzt mitten im Spiel immer einfach ab...
Habt ihr vlt Verbesserungsvorschläge ?




Hier die Prozedur:

procedure computerzug1;
var i : integer;
button1 : integer;
button2 : integer;
begin
randomize;
repeat button1:=random(36)+1;
until bild[button1]=0;
repeat
button2:=random(36)+1
until
(button1 <> button2) and (bild[button2]=0);
if anzk<2 then aufdecken(bu[button1]);
if anzk<2 then aufdecken(bu[button2]);
end;