Паскаль, 10 класс. В файле содержится информация о собаках: в каждой строке указаны кличка, возраст и порода собак

Работа с файлами в Паскале:
Пояснение: В Паскале существует специальный тип данных, который позволяет работать с файлами. Для работы с файлами вам понадобятся процедуры *Assign*, *Reset*, *Rewrite*, *Close*, а также функция *EoF* (End of File), которая позволяет проверить, достигнут ли конец файла. В данной задаче вам потребуется открыть файл, прочитать его построчно и перенести информацию о собаках с возрастом меньше указанного значения в другой файл.

Дополнительный материал:
Задача: Перенести информацию о собаках с возрастом меньше 5 лет в другой файл.

pascal

var

  inputFile, outputFile: TextFile;

  dogName, breed: string;

  age: integer;



begin

  AssignFile(inputFile, "dogs.txt");

  AssignFile(outputFile, "dogs_filtered.txt");

  

  Reset(inputFile);

  Rewrite(outputFile);

  

  while not EoF(inputFile) do

  begin

    ReadLn(inputFile, dogName, age, breed);

    

    if age < 5 then

      WriteLn(outputFile, dogName, " ", age, " ", breed);

  end;

  

  CloseFile(inputFile);

  CloseFile(outputFile);

end.

Совет: Проверьте, что входной файл существует и содержит корректные данные перед запуском программы. Также убедитесь, что исходный файл и файл назначения имеют соответствующие права на чтение и запись.

Задание: Напишите программу на Паскале, которая будет переносить информацию о студентах из одного файла в другой, у которых средний балл выше заданного значения.