Программа паскаль!Легкий вопрос!

Ребят, написал прогу, а она косячит, может кто подсказать где ошибка?
условие не совсем все сделанно, однако :Написать подпрограммы ввода матрицы, поиска суммы 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.

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.