Создать типизированный файл целых чисел, скопировать во 2 файл из исходного записи, хранящие простые числа - Pascal

Формулировка задачи:

создать типизированный файл целых чисел, скопировать во 2 файл из исходного записи, хранящие простые числа вот такая вот задачка %(

Решение задачи: «Создать типизированный файл целых чисел, скопировать во 2 файл из исходного записи, хранящие простые числа»

Листинг программы

uses crt;
 
var
TFile: file of integer;
TxFile: text;
i,j: integer;
n: integer;
begin
 write('Г‘ГЄГ®Г«ГјГЄГ® Г·ГЁГ±ГҐГ« ГЎГіГ¤ГҐГ¬ ГўГўГ®Г¤ГЁГІГј? : ');
 readln(n);
 assign(TFile,'Г”Г*Г©Г«.dat');
 rewrite(TFile);
 for j:=1 to n do
  begin
   write('Г‚ГўГҐГ¤ГЁГІГҐ Г·ГЁГ±Г«Г®: ');
   readln(i);
   write(TFile,i);
  end;
close(TFile);
 
Assign(TxFile,'Г”Г*Г©Г«.txt');
reset(TFile);
rewrite(TxFile);
 while not(Eof(TFile)) do
 begin
   read(TFile, i);
   if not(((i >2) and (i mod 2 = 0))
   or ((i >3) and (i  mod 3 = 0))
   or ((i >5) and (i  mod 5 =0 ))
   or  ((i >7) and (i  mod 7 =0 ))) then
   write(TxFile,i,' ');
 end;
close(TFile);
close(TxFile);
end.

Объяснение кода листинга программы

Задаются переменные i и j, которые будут использоваться для чтения и записи чисел в файлы.
Задается переменная n, которая будет использоваться для определения количества чисел, которые нужно записать в файл Г”Г*Г©Г«.dat.
Записывается заголовок файла.
Для каждого числа от 1 до n выполняется следующая последовательность действий:
- Читается число из файла Г”Г*Г©Г«.dat.
- Записывается число в файл Г”Г*Г©Г«.txt.