[Pascal]Нетипизированный файл

[Fuaran8989]

Имеется типизированный файл (Array[0..3,2..9] of Integer). Создать новый нетипизированный файл, в который из типизированного переписать все данные блоками по 512 байт

[Alter]

Для примера:

var 
  MyFile : file;
  Item :Array[0..511] of byte; {буфер для работы}
begin
  assign(MyFile,Filename);
  Reset(MyFile,1);
  {для записи}
   Blockwrite(MyFile, item, sizeof(item));
  {для чтения}
   BlockRead(MyFile, item, sizeof(item));
  close(MyFile);
end.