Найти сумму всех положительных элементов массива Y[4, 4]

uses crt;
var y: array [1..4,1..4] of integer;
    sum,i,j,max,imax,jmax,buf, s: integer;
begin
writeln ('Дан массив');
max:=-15;
sum:=0;
for i:=1 to 4 do
    begin
    for j:=1 to 4 do
        begin
        y[i,j]:=random(36)-12;
        write (y[i,j]:4);
        inc(sum,y[i,j]);
        if y[i,j]>max then
           begin
           max:=y[i,j];
           imax:=i;
           jmax:=j;
           end;
        end;
    writeln;
    end;
writeln ('Среднее арифметическое ',sum/(4*4):5:2);
writeln ('Максимальный элемент, равный ',max,', расположен в ',imax,' строке, в ',jmax,' столбце');
for i:=1 to 4 do
    begin
    s:=0;
    while s<=4 do
          begin
          for j:=1 to 3 do
          if y[i,j]<y[i,j+1] then
             begin
             buf:=y[i,j];
             y[i,j]:=y[i,j+1];
             y[i,j+1]:=buf;
             end;
          s:=s+1;
          end;
    end;
writeln ('Сортированный массив');
for i:=1 to 4 do
    begin
    for j:=1 to 4 do
        write (y[i,j]:4);
    writeln;
    end;
readln;
end.