{* Копирование нетипизированного файла *}

Unit NETIPCOPY;
Interface
Implementation
Begin
 writeln('Копирование нетипизированного файла');
End.

Program pas107008;

Uses netipcopy.pas; {* Эту строку можно удалить *}
Var {* Объявление переменных *}
  f1     : File;
  f2     : File;
  cursor : longint;
  size   : longint;
  part   : longint;
  s      : String;
Begin
  assign (f1, 'c:_msi.pyd'); {* Связывание f1 с файлом 'c:_msi.pyd' *}
  reset (f1, 1); {* Открытие файла для чтения *}
  assign (f2, 'c:msi2.pyd'); {* Подключение к файлу 'c:msi2.pyd' через переменную f2 *}
  rewrite (f2, 1); {* Запись в файл через переменную f2, 1 *}
  cursor := 0;
  part := 256;
  size := filesize (f1);
  While Not eof (f1) Do {* Проверяем, не достигнут ли конец файла *}
  Begin
    blockread (f1, s, part);
    blockwrite (f2, s, part);
    inc (cursor, part); {* Увеличиваем cursor, part на 1 *}
    If (cursor + part) > size Then
      part := size - cursor
  End;
  close (f1); {* Закрыть файл f1 *}
  close (f2); {* Закрытие файла *}
End.