var
  fint: file of integer; // Типизированный файл
  ftxt: text; // Текстовый файл с отчетом
  x, n, count: integer; // Компонента файла / Кол-во компонет в файле / Кол-во квадратов нечетных чисел
  fnameint, fnametxt: string;// Имя файлов

begin
  Write('Введите имя файла: ');ReadLn(fnameint);
  Assign(fint, fnameint);
  ReWrite(fint); // Создаем файл с компонентами

  Write('Введите кол-во компонет в файле: ');ReadLn(n);

  for var i := 1 to n do // Заполним файл
  begin
    x := Random(501) + 1;
    Write(fint, x);
  end;
  Close(fint); // Закроем файл

  Reset(fint); // Открываем исходный файл с компонентами
  count := 0;
  WriteLn('Список компонент в файле "' + fnameint + '":');
  while not Eof(fint) do
  begin
    Read(fint, x);
    //WriteLn(x); // Выведим на экран (раскоментируй если надо)
    if Odd(Sqr(x)) then Inc(count);
  end;
  Close(fint); // Закроем файл

  Write('Введите имя файла отчета: ');ReadLn(fnametxt);
  Assign(ftxt, fnametxt);
  ReWrite(ftxt); // Создаем текстовый файл для отчета
  WriteLn(ftxt, 'Кол-во квадратов нечетных компонент в файле "' + fnameint + '": ' + count);
  Close(ftxt); // Закроем файл
end.