Лабы / Pascal.1.курс / part 2 / var 14 / Lab4dat

program lab4dat;
var
  f:file of integer;
  i,j:integer;

begin
  assign(f,'lab.dat');
  {$I-}
  rewrite(f);
  {I+}

  if ioresult<>0 then begin
    writeln('Out of free space');
    halt;
  end;

  randomize;
  for i:=1 to 20 do begin
    j:=random(100);
    write(f,j);
  end;
  close(f);
end.