Подсчитать сумму и произведение всех положительных элементов матрицы

program z;
var i,j,p,s,n,m:integer;
a:array [1..10,1..10] of integer;
begin
     writeln('Введите кол-во столбцов');
     readln(n);
     writeln('Введите кол-во строк');
     readln(m);
     writeln('Ввод матрицы');
     for i:=1 to n do
         for j:=1 to m do
             begin
                  write('a[',i,',',j,']=');
                  readln(a[i,j]);
             end;
     writeln('Вывод матрицы');
     for i:=1 to n do
         begin
              for j:=1 to m do
                  write(a[i,j],' ');
              writeln;
         end;
     s:=0;
     p:=1;
     for i:=1 to n do
         for j:=1 to m do
             if a[i,j]>0
                then
                    begin
                         s:=s+a[i,j];
                         p:=p*a[i,j];
                    end;
     writeln('Произведение положительных элементов - ',p);
     writeln('Сумма положительных элементов - ',s);
end.

program z;
var i,s,n:integer;
a:array [1..100] of integer;
begin
     writeln('Введите кол-во элементов вектора');
     readln(n);
     writeln('Ввод вектора');
     for i:=1 to n do
         begin
              write('a[',i,']=');
              readln(a[i]);
         end;
     writeln('Вывод вектора');
     for i:=1 to n do
         write(a[i],' ');
     writeln;
     i:=0; s:=0;
     repeat
           i:=i+1;
           s:=s+a[i];
     until a[i]=0;
     writeln('Сумма первых элементов до нуля - ',s);
end.