Легкий вопрос по паскалю! Хелпуйте)

Ребят, написал прогу, а она косячит, может кто подсказать где ошибка?
условие не совсем все сделанно, однако :Написать подпрограммы ввода матрицы, поиска суммы S отрицательных элементов матрицы, вывода матрицы. Для проверки подпрограммы создать драйвер, в котором выполнить замену элементов первой строки матрицы на S.
ПРограмма (кусок который написал) :
Program lr5;
uses crt;
type
matr=array[1..15,1..15] of integer;
var
j,i,n,s:integer;
a:matr;
procedure Summa(n1:integer;
var a:matr;
var s1:integer);
var i1,j1:integer;
begin
S1:=0;
for i1:=1 to n1 do
for j1:=1 to n1 do
begin
if a[i1,j1]<0 then
begin
s1:=s1+a[i1,j1];
end;
end;
end;
{Основная}
begin
write('ввести n= ');
readln(n);
for i:=1 to n do
readln(a[i,j]);
summa(n,a,s);
for i:=1 to n do
for j:=1 to n do
write(a[i,j],' ');
writeln;
write(s);
writeln;
end.