переписать этот код, так чтобы в коде присутствовали пользовательские модули

[Artur1992]

Помогите пожалуйста переписать этот код, так чтобы в коде присутствовали пользовательские модули:

uses crt;
const
maxn=100;
var i,j,n:integer;
s,sum:real;
a:array[1..maxn,1..maxn] of real;
begin
clrscr;
write('Введите элементы массива а,n=');
readln(n);
for i:=1 to n do begin
for j:=1 to n do begin
write('a[',i,',',j,']=');
readln(a[i,j]);
end;
end;
s:=0;
for i:=1 to n do
for j:=1 to n do
if (i=j) and (a[i,j]<0) then s:=s+a[i,j];
sum:=s;
write('Сумма',s:8:2);
readkey;
end.

Заранее благодарю.

[Stilet]

На вскидку.

unit kuku;
intarface
const
 maxn=100;

var i,j,n:integer;
s,sum:real;
a:array[1..maxn,1..maxn] of real;

end.

uses kuku,crt;
begin
clrscr;
write('Введите элементы массива а,n=');
readln(n);
for i:=1 to n do begin
for j:=1 to n do begin
write('a[',i,',',j,']=');
readln(a[i,j]);
end;
end;
s:=0;
for i:=1 to n do
for j:=1 to n do
if (i=j) and (a[i,j]<0) then s:=s+a[i,j];
sum:=s;
write('Сумма',s:8:2);
readkey;
end.

Но не проверял...