program newf;
var
f:text; { текстовый файл }
i:integer;
begin
assign(f,'test.txt');
rewrite(f); { открыть в режиме перезаписи }
for i:=1 to 5 do
writeln(f,'Строка ',i);
close(f); { закрыть файл }
end.
program newf;
var
f:text; { текстовый файл }
i:integer;
begin
assign(f,'test.txt');
rewrite(f); { открыть в режиме перезаписи }
for i:=1 to 5 do
writeln(f,'Строка ',i);
close(f); { закрыть файл }
end.