Работа с Файлами в Pascal

[Тимур232323]

Составить программу
Записать в файл данные , значение которых больше 10

[Stilet]

var f:text; i:integer;
begin
 Assign(f,'file.txt'); rewrite(f);
 for i:=1 to 100 do if i>10 then writeln(f,i);
 close(f);
 write('Открой файл блокнотом. Там сюрприз');readln;
end.