Файл Опции

[die]

Помогите пожалуйста решить , завтра нужно уже сдать .

Записать в файл f последовательную доступа N натуральных чисел.Получить в другом файле последовательного доступа все компоненты файла f, кроме тех , которые кратны K . Вывести полученный файл на печать .

[Ozzя]

не знаю как оформить кратность К .

  ...
  read(f1,num);
  if num mod K<>0 then
    write(f2,num);
  ...

[die]

  ...
  read(f1,num);
  if num mod K<>0 then
    write(f2,num);
  ...

Вот так сделал первую часть , но мне кажется что- то не то .

program gg;
uses Crt;
var fl: file of integer;
num:integer;
i,x:integer;
begin
ClrScr;
assign (fl,' number.dat');
rewrite (fl);
for i:=1 to 10 do
begin
write (i,'-e зЁб«®');
readln (x);
write (fl,x);
Close (fl);
end;
writeln ('‡ ЇЁбм ў д ©« § ўҐа襭 ');
repeat until keypressed;
end.

А вот во второй части не знаю что делать .

program gg;
uses Crt;
var fy: file of integer;
num:integer;
k,x:integer;
begin
ClrScr;
assign (fy,'number.dat');
reset (fy);
k:=0;

немагу разобраться куда вписывать кратность и печать.