Создать файл, состоящий из N целых чисел. Вывести содержимое этого файла на экран — Pascal(Паскаль)

uses crt;
var
 n,i:integer;
 f:text;
begin
clrscr;
randomize;
 assign(f,'1.txt');
 rewrite(f);
 write('n = ');
 readln(n);
 for i:= 1 to n do
  writeln(f,random(100));
 close(f);
  assign(f,'1.txt');
  reset(f);
 while not eof(f) do begin
   readln(f,i);
   write(i,' ');
 end;
 readkey;
end.