Строки, пример 2

{Формируется файл, содержащий произвольные записи. Записи с чётными номерами записываются из исходного файла в файл 2, а с нечётными - в файл 1. Используется 3 файловые переменные, содержимое всех трёх файлов выводится на экран.}

program files;
uses crt;

var
f, f1, f2: text;
n, a, s: integer;
str: string;

begin
clrscr;
writeln ('Vvod kolichistva strok');
readln (n);

assign (f, 'File0.txt');
assign (f1, 'File1.txt');
assign (f2, 'File2.txt');

rewrite (f);
rewrite (f1);
rewrite (f2);

for s:=1 to n do
begin
     writeln ('New');
     readln (str);
     writeln (f, str);
end;

for s:=1 to n do
begin
     readln (f, str);
     if s mod 2 = o
             then
             writeln (f2, str);
     else
             writeln (f1, str);
end;;

clrscr;
reset (f);

for s:=1 to n do
begin
     readln (f, str);
     writeln (str);
end;

writeln ('**********');

reset (f1);

while not eof(f1) do
begin
     readln (f1, str);
     writeln (str);
end;

writeln ('**********');

reset (f2);

while not eof(f2) do
begin
     readln (f2, str);
     writeln (str);
end;

close (f);
close (f2);
close (f1);

readln;

end.