Написать 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.

Вроде все моменты расписал