Написать программу, которая выводит на экран те компоненты файла последовательного доступа, которые делятся на m, но не делятся на n .

...
  c := 0;
  while not EOF(f) do
  begin
    Read(f, temp);
    if (temp mod m = 0) and (temp mod n <> 0) then
    begin
      Write(temp, ' ');
      Inc(c);
    end;
  end;
...

uses crt;
var f:text;
    name:string;
    a,m,n,k:integer;
begin
clrscr;
write('Имя файла для чтения: ');
readln(name);
name:=name+'.txt';
assign(f,name);
{$I-} reset(f);  {$I+}
if IOResult <> 0 then
 begin
  writeLn('Не могу открыть файл ',name);
  writeLn('Работа программы завершена. Нажмите ENTER');
  readln;
  exit;
 end;
writeln('Введите 2 целых числа для проверки делимости:');
readln(m,n);
writeln('Числа, которые делятся на ',m,' и не делятся на ',n);
k:=0;
while not eof(f) do
 begin
  read(f,a);
  if(a mod m=0)and(a mod n<>0) then
   begin
    k:=1;
    write(a,' ');
   end;
 end;
close(f);
if k=0 then write('Таких чисел нет!');
readln
end.

writeln('Введите 2 целых числа для проверки делимости:');
readln(m,n);
writeln('Числа, которые делятся на ',m,' и не делятся на ',n);
k:=0;
while not eof(f) do
 begin
  read(f,a);
  if(a mod m=0)and(a mod n<>0) then
   begin
    k:=1;
    write(a,' ');
   end;
 end;
close(f);
if k=0 then write('Таких чисел нет!');
readln
end.