Разбиение программы на модули

unit mod_1;
interface
function summa(a,b:integer):integer;
function raznost(a,b:integer):integer;
implementation
function summa(a,b:integer):integer;
begin
result:=a+b
end;
function raznost(a,b:integer):integer;
begin
result:=a-b
end;
end.

unit mod_2;
interface
function umn(a,b:integer):integer;
function del(a,b:integer):real;
implementation
function umn(a,b:integer):integer;
begin
result:=a*b
end;
function del(a,b:integer):real;
begin
result:=a/b
end;
end.

uses mod_1,mod_2;
var a,b:integer;
begin
writeln(a,b);
read(a,b);
writeln('Сумма=',summa(a,b));
writeln('Разность=',raznost(a,b));
writeln('Произведение=',umn(a,b));
writeln('Частное=',del(a,b));
end.

unit mod_1;
interface
var a,b:integer;
function summa:integer;
function raznost:integer;
implementation
function summa:integer;
begin
result:=a+b
end;
function raznost:integer;
begin
result:=a-b
end;
end.

unit mod_2;
interface
uses mod_1;
function umn:integer;
function del:real;
implementation
function umn:integer;
begin
result:=a*b
end;
function del:real;
begin
result:=a/b
end;
end.

uses mod_1,mod_2;
begin
writeln(a,b);
read(a,b);
writeln('Сумма=',summa);
writeln('Разность=',raznost);
writeln('Произведение=',umn);
writeln('Частное=',del);
end.