for k := 1 to N do

Write(Text[k]) ;

dec(Size,M); (Size - нераспечатанный

остаток файла} inc(j) ;

if j < DI.CXusSize then

inc(Sec) else begin j := 0;

FirstC := GetFATItem(Disk, PirstC) Sec := GetSector(Disk,FirstC) end until Size = 0 else

WriteLn('Ошибка чтения файла') end else

WriteLn('Ошибка поиска файла') end until Name = '';

FreeListDisk(Disks) {Удаляем связанный список} end.