Не компилируется модуль: Forward declaration not solved - Pascal

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

Не компилируется модуль, компилятор пишет: forward declaration not solved InA (Var d1, d2: string; Var e: boolean); и There were errors compiling module, stopping.

                    Листинг программы
                
 
                        
                          
                    
Unit U1;
 
Interface
Procedure InA (Var d1, d2: string; Var e: boolean);
 
Implementation
Procedure InA;
Var nf: string;
n, m, c, c1: integer;
dt1, dt2: string;
e: boolean;
 
Begin
e:=true;
While e=true do
 Begin
 Write('Введите первую дату: ');
 Readln(dt1);
 Write('Введите вторую дату: ');
 Readln(dt2);
 Val (dt1, n, c);
 Val (dt2, m, c1);
 If (Length(dt1)=8) and (Length(dt2)=8) then
  If (c=0) and (c1=0) then
   If n<m then
    Begin
    Writeln('Даты введены верно');
    e:=false;
    end
   Else Writeln('Даты введены неверно, повторите ввод')
  Else Writeln('Даты введены неверно, повторите ввод')
 Else Writeln('Даты введены неверно, повторите ввод')
End;
End;
end.

Решение задачи: «Не компилируется модуль: Forward declaration not solved»

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

Procedure InA (Var d1, d2: string; Var e: boolean);

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

Создается процедура 'InA'.
Процедура принимает три параметра:
- Переменная 'd1' типа string, передаваемая по ссылке (Var);
- Переменная 'd2' типа string, передаваемая по ссылке (Var);
- Переменная 'e' типа boolean, передаваемая по ссылке (Var).
В процедуре выполняется определенная логика, которая, скорее всего, модифицирует значения переменных 'd1', 'd2' и 'e'.