Программирование модуля

Unit modul1;
 Interface
             procedure Summa (Nm, Nk: integer; var S:Longint);
 Implementation
             procedure Summa;
             var
             i:integer;
             begin
             {if Nm (Nk then exit;}
             S:=0;
             for i:=Nm to Nk do S:=S+i;
end;
End.

Function XXX (m, c, t: real): real;
  Begin
   Result:=m*c*t;
  End;

Unit Energy;
Interface
Function XXX (m,c,t: real): real;
Implementation
Function XXX (m, c, t: real): real;
  Begin
   Result:=m*c*t;
  End;
End.

Unit Energy;
Interface
Function XXX (m,c,t: real): real;
Implementation
Function XXX (m,c,t: real): real;
Begin
  Result:=m*c*t;
End;
End.

Uses Energy;
Begin
Writeln (XXX (0.1,14208,23),' Дж');
readln;
End.

Uses Energy;
Var m, c, t: real;
Begin
write ('Масса: ');
readln (m);
Write ('Удельная теплоёмкость: ');
readln (c);
write ('Изменение температуры: ');
readln (t);
Writeln (XXX (m,c,t),' Дж');
readln;
End.