Информатика 10 класс массивы, помогите

Program p31;
var a:array [1..3,1..4] of byte;
i,j:byte;
begin
For i:=1 to 3 do
  begin
For j:= 1 to 4 do
   begin
  a[i,j]:=random(10,20);
write(a[i,j],' ');
end;
Writeln;
  end;
end.

Program p45;
var b:array [1..3,1..4] of shortint;
i,j,k:byte;
begin
k:=0;
Writeln('Массив B');
For i:=1 to 3 do
  begin
   For j:= 1 to 4 do
begin
   b[i,j]:=random(-5,5);
   write(b[i,j],' ');
if b[i,j]<>0 then k:=k+1;
  end;
  Writeln;
  end;
Writeln('Количество ненулевых элементов = ', k);
end.