prosím pomohol by my niekto z programom v pascale???

procedure ukaz;
begin
asm
mov ax,1
int $33
end
end;
procedure schovaj;
begin
asm
mov ax,1
int $33
end
end;
procedure kde(var x,y,b:word)
begin
asm
mov ax,3
int $33
mov b,bx
mov x,cx
mov y,dx
end;
end;

procedure kde(x,y,b:word);
var x1,y1,b1:word;
begin
 asm
  mov ax,3
  int 51
  mov b1,bx
  mov x1,cx
  mov y1,dx
 end;
x:=x1;y:=y1;b:=b1;
end;

uses dos,graph,crt;

procedure mys(a:word);
var a1:word;
begin          a1:=a;
 asm
mov ax,a1
int 51
 end;
end;

procedure poz(var x,y,b:word);
var r:registers;
begin
 r.ax:=3;
 intr(51,r);
 b:=r.bx;
 x:=r.cx;
 y:=r.dx;
end;
function itos(a:longint):string;
var s:string;
begin
str(a,s);
itos:=s;
end;

var g,gr:integer;
    b,x,y:word;
    s,t:string;
begin g:=9;gr:=2;
initgraph(g,gr,'..\bgi');
mys(1);      setviewport(0,0,80,10,false);
while(b<>1) do
 begin
  poz(x,y,b);
  outtext(itos(x)+' '+itos(y)+' '+itos(b));
              clearviewport;

end;

mys(2);
readkey;
closegraph;
end.

uses dos,graph,crt;

procedure mys(a:word);
var a1:word;
begin          a1:=a;
 asm
mov ax,a1
int 51
 end;
end;

procedure poz(var x,y,b:word);
var r:registers;
begin
 r.ax:=3;
 intr(51,r);
 b:=r.bx;
 x:=r.cx;
 y:=r.dx;
end;

procedure minca(var x:word;f:byte);
begin
setcolor(f);
circle(x,200,25);
setfillstyle(1,f);
floodfill(x,200,f);
inc(x,75);
end;

var g,gr:integer;
    x1,x,y,b:word;
    m,d:boolean;
    f,a,vyhra:byte;
BEGIN          g:=9;gr:=2;
initgraph(g,gr,'..\bgi'); mys(0);
randomize;  x1:=50;
while(x1<620) do minca(x1,1+random(2));

mys(1);      d:=true;
while(b<>3)do begin   
for a:=1 to 7 do
 if getpixel(50,200)=getpixel(50+a*75,200) then inc(vyhra);
 if vyhra=7 then
 begin cleardevice;outtext('vyhra je tvoja bleeee;;;');break;end;
                 vyhra:=0;
if b=0 then d:=true;
poz(x,y,b);
if d=true then                begin
if (b=1)and(y<225)and(y>175)and((x mod 75)<75)and((x mod 75)>25)then
begin m:=true; d:=false; end;
if (m=true) and (x<600) then begin x1:=50+75*(x div 75);
mys(2);
     a:=3;
if x1<75 then a:=2 else if x1>550 then begin inc(x1,-75);a:=2; end
else inc(x1,-75);
 for a:=a downto 1 do begin
  f:=getpixel(x1,200);
  minca(x1,1+(f mod 2));
                   end;
mys(1);                         end;
m:=false;
 end;


              end;

mys(0);readkey;closegraph;END.