Помогите пожалуйста. Очень надо.
Исправте ошибки.
program untitled;
uses crt;
type
m=array[1..100]of integer;
e= file of integer;
var
k,t:integer;
f,g,h:e;
i,n,c,a:integer;
BEGIN
assign(f,'f.dat');
assign(g,'g.dat');
assign(h,'h.dat');
rewrite(f);
writeln('ввод n');
read(n);
for i:=1 to n do
begin
writeln('ввод k[i]');
readln(t);
write(f,t);
end;
reset(f);
rewrite(g);
rewrite(h);
while not eof(f)do
begin
read(f,t);
a:=t mod 2;
if a<>0
then
begin
read(g,t);
write(t);
writeln('Fail chetnih chisel:');
while not eof(g) do
begin
read(g,t);
write(t,' ');
end;
end
else
read(h,t);
write(t);
writeln('Fail nechetnih chisel:');
while not eof(h) do
begin
read(h,t);
write(t,' ');
end;
end;
close(f);
close(g);
close(h);
end.
Дан файл f с целыми числами . Нужно из этого файла взять нечетные числа поместить в файл h . А четные в файл g.

Я имела в виду, чтобы после этого с файлами h и g можно было выполнять математические операции-например умножать файл на число...

Да... если файлы текстовые, в PascalABC.NET 3.3 эта задача пишется в несколько строк...

А если "на число умножать", файлы надо делать типизированными.

но и суть то что наверное не текстовые надо...

Можно и текстовые, но читать тогда в динамический массив