Другое: Написать 2 почти одинаковых кода на языке pascal abc

Пожалуйста не просто тупо нейросеть
Первый код:
Прикрепляю файлы с общей формулировкой задания и самим заданием.Вариант А.Также прикрепляю пример входных данных - input.txt.
Второй код:
В файле input.txt (см. Вариант задания А))содержаться данные для последующего интеллектуального анализа, в каждой строке файла содержится одна запись
Разработать программу предварительной обработки данных («очистки данных»), содержащихся в файле input.txt.
? Обработанные записи отсортировать и сохранить в файл Data_cleansing.txt в табличном формате (см. Вариант задания).
? Формат даты в выходном файле – ДД “.” M “.” YY
? Формат времени – HH “:” II
? Записи, которые не были «очищены», необходимо занести в файл not_cleaned_data.txt с указанием причины невозможности исправления ошибок, несоответствий данных с целью улучшения их качества.
Задания почти одинаковые, отличие в выходных файлах. В первом задании просто найти некорректные данные и занести каждый в свой текстовый файл(посмотреть на фото само задание,там написано, что делать и какие файлы), а во 2 задании при возможности исправить некорректные данные и занести в Data_cleansing.txt, данные которые невозможно очистить в not_cleaned_data.txt.
Добавил фото с классами эквивалентности.
По данным из входного файла:
1) номер начинается 89...; если есть символ не принадлежащий цифрам,то ищем по остальным номерам в файле, если имеется номер, который совпадает, то добавляем недостающую цифру из найденного номера.Иначе когда нет возможности исправить,то в файл not_cleaned_data.txt. с причиной.Так же если в другой строке попадается тот же номер(неважно в исходящем и входящем) и время звонка пересекаются то в файл not_cleaned_data.txt.
2)Для входящего всё тоже самое
3)ДР- домашний регион
ВДР - вне домашнего региона
ДОДР - Других операторов домашнего региона
ДОВР -Других операторов вне домашнего региона
тут могут быть пропуски - при пропуске заменяем самым частым попадающимся типом звонка.При некорректных значениях смотрим можно ли исправить.Например: если 2 символа, то это Др, так же можно для ВДР, а вот с 2 последними определяем по 3 букве. Д*ДР- это ДОДР,а если ДО*Р - то невозможно исправить, так как они имеют 4 символа и различаются только 3 символом.
4)5)6) при аномальных значениях мы переносим дату\время вперёд, то есть 25:00 = 01:00 следующего дня(нужно поменять дату),нужно учесть возможность перехода часов,дней,месяцев,годов.Например 25:00 31.12.24 = получиться 01:00 01.01.25, а это дата уже выходит за пределы указанные в задании(2000 - 2024)
6) при пропуске заполняем среднем временем разговора.
При написании кода НЕ ИСПОЛЬЗОВАТЬ ДИНАМИЧЕСКИЕ МАССИВЫ(только статические),BREAK,EXIT.
Вроде все моменты расписал