[fpc-pascal]interrupt 13h

[Luis Del Aguila]

I write the next code in my program,

   Uses dos;
        var r:registers;
        buffer:array [0..512] of byte;
        i:integer;
    begin
          fillchar(buffer,512,0);
          for i:=0 to 512 do
               begin
                 write(buffer[i])
               end;
          for i:=1 to 200 do
               begin
                    r.ah:=$02;
                    r.dl:=$00;
                    r.dh:=$00;
                    r.ch:=$00;
                    r.cl:=$01;
                    r.al:=$01;
                    r.es:=seg(buffer);
                    r.bx:=ofs(buffer);
                    intr($13,r);
                    write(i)
               end;
          writeln('buffer leido');
          for i:=0 to 512 do
               begin
                     write(buffer[i])
               end;
           readln
end.

 the fpc 1.0.4 compile ok.
 but I when run the program don't  read  the sector.
 I use the unit DOS, the target compile is Win32 and my Operating system is
Windows Me.

I compile the program with TP 6.0, and it run ok.
Can you help me?

 Att.
Luis Del Aguila