Típusnélküli állomány - példaprogram

program Tordel;
uses Crt;
var forras, cel: file;
    n, maradek: integer;
    s: string;
    t: array[1..1024]of byte;
begin
  Assign(forras, 'nagyfajl.arj');
  Reset(forras,1);                                  {Megnyitás egy bájt elemhosszúsággal}
  n := 0;
  while not Eof(forras) do
    begin
      inc(n);
      str(n,s);
      Assign(cel, 'kisfajl.'+s);                    {A cél állomány hozzárendelése, a kiterjesztés a sorszám}
      Rewrite(cel,1);
      maradek := FileSize(forras)-FilePos(forras);  {A forrás még át nem másolt részének a hossza}
      if maradek >= 1024 then
        begin
          BlockRead(forras, t, 1024);
          BlockWrite(cel, t, 1024);
        end
      else
        begin
          BlockRead(forras, t, maradek);
          BlockWrite(cel, t, maradek);
        end;
      Close(cel)
    end;
  Close(forras)
end.