ses crt;
var f,g,h:file of integer;{три типизированных файла целых чисел}
a:integer;{переменная для чисел}
c:char;{переменная-символ для окончания ввода}
begin
clrscr;
assign(f,'filef');{связываем переменную с файлом на диске}
rewrite(f);{открываем для записи}
assign(g,'fileg');
rewrite(g);
assign(h,'fileh');
rewrite(h);
writeln('Vvedite v faik F celye chisla, okonchanie vvoda Esc:');
repeat
write('a=');
readln(a);{читаем числа}
write(f,a);{записываем в файл}
c:=readkey;{ждем нажатия клавиши}
until c=#27;{если Esc-заканчиваем ввод, другая-продолжаем}
reset(f);{открываем исходный файл для чтения}
writeln('Ishodnyj fail:');
while not eof(f) do{пока не конец файла}
begin
read(f,a);{читаем числа}
write(a,' ');{выводим на экран через пробел}
if odd(a)then write(h,a){если нечетное(odd), записываем в файл h}
else write(g,a);{если четное, в файл g}
end;
close(f);{закрываем файл, полностью прочитан}
writeln;
reset(g);{открываем файл четных}
writeln('Fail chetnih chisel:');
while not eof(g) do
begin
read(g,a);
write(a,' ');
end;
close(g);{закрываем}
writeln;
reset(h);{открываем файл нечетных}
writeln('Fail nechetnih chisel:');
while not eof(h) do
begin
read(h,a);
write(a,' ');
end;
close(h);
readln
end.