Kod yardım

[huznumsun]

Uses crt,Graph;
Const MaxNokta = 10000;
Var
Grfsurucu,Grfmodu,HataKodu:integer;
RasgeleX,RasgeleY;
PikselRenk,NoktaSayisi,k:Word;
Begin
DetectGraph(Grfsurucu,Grfmodu);
Writeln('Grafik src:',Grfsurucu);
Writeln('Grafik modu:',Grfmodu);
Writeln('Grafik moduna ge‡mek i‡in <Enter> tuŸuna basnz..!');
Readln;
InitGraph(Grfsurucu,Grfmodu,'C:\BP\BGI');
HataKodu:=GraphResult;
If HataKodu <> GrOk Then
Begin
Writeln('Grafik Hatas!:',GraphErrorMsg(HataKodu));
Exit;
End;
Randomize;
For k:=1 To MaxNokta Do
PutPixel(Random(GetMaxX),Random(GetMaxY),Random(GetMaxColor));
NoktaSayisi:=MaxNokta;
Repeat
RasgeleX:=Random(GetMaxX);
RasgeleY:=Random(GetMaxY);
PikselRenk:=GetPixel(RasgeleX,RasgeleY);
If PikselRenk <> Black then
Begin
PutPixel(RasgeleX,RasgeleY,Black);
Dec(NoktaSayisi);
end
else
If NoktaSayisi < MaxNokta Then
Begin
PutPixel(Random(GetMaxX),Random(GetMaxY),Random(GetMaxColor));
Inc(NoktaSayisi);
end;
until KeyPressed;
Close Graph;
end.

Arkadaşlar bu koddaki hataları ve eksikleri bulup söyleyebilir misiniz yada ekran çıktısını verir misiniz... Lütfen
Teşekkürler...