سلام
program test;
uses crt;
uses graph;
var driver,mode,i,j,k:integer;
p:pointer;
top:boolean;
size:word;
{******************************HOUNTER*************************************}
procedure hounter;
var i,j,k:integer;
begin
initgraph(driver,mode,'c:\tp\bgi')...