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

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