Получить в файле g те компоненты файла f, которые равны 8 - Turbo Pascal

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

Заполнить файл последовательного доступа f целыми числами, полученными с помощью генератора случайных чисел. Получить в файле g те компоненты файла f, которые равны 8

Решение задачи: «Получить в файле g те компоненты файла f, которые равны 8»

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

var f, g: text;
    i, a: integer;
 
begin
  Randomize;
  assign(f,'1.txt');
  rewrite(f);
  assign(g,'2.txt');
  rewrite(g);
  for i := 1 to random(1000) do begin
    a := random(100);
    writeln(f, a);
    if a = 8 then writeln(g, a)
  end;
  close(g);
  close(f)
end.

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

var f, g: text;
i, a: integer;
assign(f,'1.txt');
rewrite(f);
assign(g,'2.txt');
rewrite(g);
for i := 1 to random(1000) do begin
a := random(100);
writeln(f, a);
if a = 8 then writeln(g, a)
end;
close(g);
close(f)
В данном коде используется язык программирования Turbo Pascal. Он предназначен для работы с текстовыми файлами. Код начинается с объявления двух переменных типа text - f и g. Они будут использоваться для работы с текстовыми файлами. Далее идет цикл for, который выполняется 1000 раз (от 1 до 1000). В каждой итерации цикла генерируется случайное число от 1 до 1000 (a). Затем происходит проверка условия if. Если значение переменной a равно 8, то записывается значение переменной a в файл g. После завершения цикла все файлы закрываются с помощью функции close.