if п<>512 then begin

RemoveFromHD :•= -5;

Exit end;

Close(F) ;

Erase(F); {Стереть файл! {Шифруем ключевой сектор} Inst := Buf[200]-Buf[17]+l;

HidnSec(Buf,Buf[17]-l,Buf[2OO] ) ;

{Записываем на дискету новый ключ) TrassBlockl;

if not DiskettPrepare(DSK) then begin

RertioveFromHD :~ -1;

Exit end;

with R do begin

ah = 3;

al = 1;

ch = TRK;

cl = SEC;

dh = HED;

dl = DSK;

es = seg(Buf) ;

bx = ofs (Buf) ;

Intr($13,R);

if (Flags and FCarry)<>0 then

RemoveFromHD :" ~3 else

RemoveFromHd :•' Inst end;

end; (RemoveFromHD)