Типизированные файлы, Pascal

1. Ввести с клавиатуры целое число N (>1). Создать файл целых чисел и записать в него N первых положительных четных чисел (2, 4, ...).

2. Вывести содержимое файла на экран.

Program n1;

var n, i: longint;

t: text;

s: string;

begin

readln (n) ;

assign (t,'file. txt') ;

rewrite (t) ;

for i:=2 to n do if i mod 2=0 then write (t, i,' ') ;

close (t) ;

assign (t,'file. txt') ;

reset (t) ;

read (t, s) ;

write (s) ;

close (t) ;

end.