necesito ayudacon este programa

[xeelons]

hace uno meses enpece con delphi

tengo este codigo

pero no se que le puedo colocar en uses

var

  buf:array[0..511] of byte;
  c:char;
  j:word;
  r:register;
begin
  r.ax:=$0201;                      //Read Cyl 0, Hd 0, Sec
  r.cx:=2;
  r.dx:=$80;
  r.bx:=ofs(buf);
  r.es:=seg(buf);
  intr($13,r);
  write(buf[0],’ ’,buf[1],’:’);       // {display it}
  j:=2;
  while buf[j]<>0 do
    begin
      write(char(buf[j]));
      j:=j+1;
    end;
  writeln;
  write(’Do you want to erase the sector? ’);

end.