Двумерные массивы_пожалста^^

uses crt;
const
     n=10; {razmer massiva}
     m=5;
var
   a:array[1..n,1..m] of integer;
   i,j:byte;
   sum, sredn, proizv:integer;
begin
clrscr;
proizv:=1;
{generatsiya massiva}
writeln('ISHODNIY MASSIV');
for i:=1 to n do
    begin
    for j:=1 to m do
        begin
         a[i,j]:=random(200)-100;
         {vivod massiva}
         write(a[i,j]:5);
         sum:=sum+a[i,j];
         if a[i,j]>=0 then sredn:=sredn+a[i,j];
         if i=j then proizv:=proizv*a[i,j];
        end;
    writeln;
    end;
writeln('Summa=',sum);
writeln('Srednee zna4enie=',sredn/(n*m):3:3);
writeln('Proizvedenie=',proizv);
readkey;
end.

uses crt;
const
     n=5;
var
   a,b,x:array[1..n,1..n] of integer;
   i,j:byte;
   summ, sredn:integer;
begin
clrscr;
randomize;
{generatsiya}
for i:=1 to n do
    begin
    for j:=1 to n do
        begin
             a[i,j]:=random(10);
             b[i,j]:=random(10);
             x[i,j]:=b[i,j]-a[i,j];
             if j=1 then summ:=summ+x[i,j];
             sredn:=sredn+x[i,j];
             write(x[i,j]:3);
        end;
    writeln;
    end;
writeln('Summ=',summ);
writeln('Sredn=',sredn/(n*n):3:3);
readkey;
end.

а[i,j]:=random(200)-100;
{vivod massiva}
write(a[i,j]:5);

readln(a[i,j]);

a[i,j]:=random(10);
b[i,j]:=random(10);

readln(a[i,j]);
readln(b[i,j]);