Найти сумму положительных элементов и количество элементов в диапазоне от 10 до 20

const m=4;n=5;
var B:array [1..m,1..n] of integer;
i,j,k,sum:integer;
begin
k:=0; sum:=0;
for i:=1 to m do begin
 for j:=1 to n do begin
 B[i,j]:=Random(50)-25;
 Write(B[i,j]:4); end;
 Writeln; end;
for i:=1 to m do
 for j:=1 to n do
 begin
 if (B[i,j]>0) then sum:=sum+B[i,j];
 if (B[i,j] in [10..20]) then k:=k+1;
 end;
Writeln('summa: ',sum);
Writeln('kol-vo: ',k);
end.

for i:=1 to m do begin
 for j:=1 to n do begin
 B[i,j]:=Random(50)-25;
 Write(B[i,j]:4); end;
 Writeln; 
 if (B[i,j]>0) then sum:=sum+B[i,j];
 if (B[i,j] in [10..20]) then k:=k+1;
 end;

Program P1;
var
A: array[1..100,1..100] of integer;
i,j,m,n,s,k:integer;
begin
randomize;
write('Число строк: ');readln(m);
write('Число столбцов:');readln(n);
s:=0; k:=0;
for i:=1 to m do  begin
for j:=1 to n do begin
   a[i,j]:=random(51)-25;
   write(a[i,j]:5);
 if a[i,j]>0 then s:=s+a[i,j];
 if (a[i,j]>10) and (a[i,j]<20) then k:=k+1;
end;
   writeln;
   end;
writeln('S= ',s,' k=',k);
 readln;
end.