одномерный и двумерный массив (Pаscal)

[Elena04]

помогите решить задачу

[Elena04]

Помогите пожалуйста!!!!!
№ 1.
Задан масссив целых чисел из Т элементов. Найти первую пару соседних противоположных чисел ( их сумма равна 0).
№2.
Задан двумерный массив размерности m*n. Дополнить его строкой и столбцом, в которых записать сумму элементов соответствующих строк и столбцов исходного массива. В элементе (m+1, n+1) должна храниться сумма всех элементов первоначального массива.

[BDA]

1-я:

Uses CRT;
const
N=100;
var
a:array[1..N] of integer;
i,t,pos:integer;
BEGIN
write('Input count of elements: ');
readln(t);
for i:=1 to t do
begin
	write('a[',i,']= ');
	readln(a[i]);
end;
pos:=1;
while (a[pos]+a[pos+1]<>0)and(pos<t) do
	inc(pos);
if pos>=t then
	write('Pair doesn'+chr(39)+'t exist')
	else
	write(pos);
readln;
END.

2-я:

Uses CRT;
const
T1=100;
T2=100;
var
a:array[1..T1,1..T2] of integer;
i,j,m,n:integer;
BEGIN
write('Input size of matrix (m*n): ');
readln(m,n);
for i:=1 to m do
	for j:=1 to n do
	begin
		write('a[',i,',',j,']= ');
		readln(a[i,j]);
	end;
a[m+1,n+1]:=0;
for i:=1 to m do
	a[i,n+1]:=0;
for j:=1 to n do
	a[m+1,j]:=0;
for i:=1 to m do
	for j:=1 to n do
	begin
		a[i,n+1]:=a[i,n+1]+a[i,j];
		a[m+1,j]:=a[m+1,j]+a[i,j];
		a[m+1,n+1]:=a[m+1,n+1]+a[i,j];
	end;
for i:=1 to m+1 do
begin
	for j:=1 to n+1 do
		write(a[i,j]:5);
	writeln;
end;
readln;
END.