Заполнить файл последовательного доступа f целыми числами. из файла f получить файл g, исключив числа, кратные К и М. вывести файл g на экран — Pascal(Паскаль)

uses crt;
var f,g:text;
    i,a,k,m:integer;
begin
clrscr;
randomize;
assign(f,'failF.txt');
rewrite(f);
assign(g,'failG.txt');
rewrite(g);
for i:=1 to 100 do
 begin
  a:=random(200);
  write(f,' ',a);
 end;
close(f);
writeln('Введите 2 целых числа для проверки кратности:');
readln(k,m);
reset(f);
while not eof(f) do
 begin
  read(f,a);
  if(a mod k<>0)and(a mod m<>0)then write(g,' ',a);
 end;
write('Файл failF создан и переписан в файл failG:');
readln
end.