Создать файл состоящий из n - случайных целых чисел (n задается с клавиатуры ), распечатать этот файл и создат

Решение Pascal
var n: integer;beginassign(input,'input.txt');reset(input);assign(output,'output.txt');rewrite(output);  readln(n);  writeln(n);  close(input);  close(output);end.