Помогите пожалуйста. Очень надобно. Исправте ошибки.program untitled; uses crt; type

Помогите пожалуйста. Очень надо.
Исправте оплошности.
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 alt;gt;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.

Виталя Фриов 2019-04-08 01:04:36

что то все очень трудно...