Заполнить файл F целыми числами, полученными с помощью генератора случайных чисел. Получить в файле G все компоненты файла F , которые делятся на m и не делятся на n — Pascal(Паскаль)

uses crt;
var f,f1:text;
    a,i,n,m:integer;
 
begin
clrscr;
write('Vvedite M '); {вводим значения N и M}
readln(m);
write('Vvedite N ');
readln(n);
 
begin
clrscr;
randomize;
assign(f,'c:\chis.txt');
rewrite(f);
assign(f1,'c:\chis2.txt');
rewrite(f1);
for i:=1 to 10 do
  begin
   a:=random(100);
   write(f,a,' '); {записываем числа, полученые через ГСЧ, через пробел}
  end;
reset(f); {открываем файл}
while not eof(f) do {пока не достигнут конец файла, читаем}
  begin
    read(f,a);
    if (a mod m=0)and(a mod n<>0) {если в нем есть числа, делящеся на M и не делящиеся на N}
    then write(f1,a,' '); {пишем их в файл f1}
  end;
close(f);close(f1); {закрываем оба файла}
end;
end.