Вычислить сумму всех неотрицательных элементов, а также их количество

program massiv;
const n=5;
var sum,s,i:integer; a:array [1..n] of integer;
begin
writeln('Заполните массив');
for i:=1 to n do begin
write('A[',i,']=');
read(a[i]);
end;
sum:=0;
for i:=1 to 5 do
if a[i]>0 then sum:=sum+a[i];
writeln('Cумма положительных элементов = ',sum); 
s:=0;
for i:=1 to n do
if a[i]>0 then  s:=s+1 ;
writeln('Количество положительных элементов = ',s) 
end.

var  a:array [,] of integer;//динамический двумерный массив
     n,i,j,sum,kol:integer;//размер массива, счетчики циклов,
                           //сумма, и количество неотрицательных
begin
repeat//вводим размер масива с проверкой
write('Введите размер массива n>1 n=');
readln(n);
until n>1;//ввод пока n<=1
setlength(a,n,n);//выделим память под массив
writeln('Заполните массив');
sum:=0;
kol:=0;
for i:=0 to n-1 do 
 begin
  for j:=0 to n-1 do
   begin
    read(a[i,j]);//вводим по n чисел в строку  
    if a[i,j]>=0 then//если неотрицательное
     begin
      sum:=sum+a[i,j];//считаем сумму
      kol:=kol+1;//количество
     end; 
   end;  
  readln//ввели строку, жмем Enter
 end;
writeln('Сумма неотрицательных элементов=',sum); 
writeln('Их количество=',kol) 
end.