Файл А заполнен случайными числами. Сформировать файл В из элементов файла А кратных m, и файл С из элементов файла А кратных h. m и h – вводятся с клавиатуры.
помогите, пожалуйста..
var K:array[1..5] of integer;
A,B,C: file of integer;
h,m,g,i:integer;
begin
assign(A,'failA');
assign(B,'failB');
assign(C,'failC');
writeln ('введите m');
readln(m);
writeln ('введите h');
readln(h);
rewrite(B);
rewrite(C);
reset(A);
for i:=1 to 5 do
begin
readln(K[i]);
write(A,K[i]); end;
reset(A);
while not eof(A) do
read(A,g);
if (g mod m=0) then write(B,g);
if (g mod h=0) then write(C,g);
close(A);
reset(B);
reset(C);
writeln;
write('файл В(g/',m, '):');
while not eof(B) do begin
read(B,g);
write(g);
end;
writeln;
write('файл C(g/',h, '):');
while not eof(C) do begin
read(C,g);
write(g);
end;
close(B); close(C);
end.