двумерный массив

Program matric;
Uses crt;
 var b:array [1..10,1..10] of integer;
     a:array [1..10] of integer;
     i,j,n,proiz,max:integer;
begin
clrscr;
 Writeln (' vvedite razmernost matrici < 10 ');
 Readln (n);
  for i:=1 to n do
    for j:=1 to n do begin
                     write ('B[',i,',',j,']=');
                     Readln (b[i,j]);
                     end;
writeln (' Polychena matrica ');
for i:=1 to n do
 begin
 for j:=1 to n do
    Write ('  ',b[i,j],' ');
    writeln;
 end;
writeln;
for i:=1 to n do begin
                      max:=b[i,1];
                      for j:=1 to n do
                      if b[i,j]>max then max:=b[i,j];
                      a[i]:=max;
                      end;
Writeln (' Max elementy strok ');
for i:=1 to n do
write (a[i]:4);
writeln;
proiz:=1;
for i:=1 to n do
proiz:=proiz*a[i];
Writeln (' Ix proizvedenie = ',proiz);
Readln
end.

uses crt;
var x:array[1..10,1..10] of real;
i,j,n,ind:integer; pr,max:real;
begin
randomize; clrscr;
writeln('Введите размерность массива* <= 10');
readln(n);
for i:=1 to n do
 begin
 for j:=1 to n do
  begin
  x[i,j]:=random*10-5;
  write(x[i,j]:6:2);
  end;
 writeln;
 end;
writeln; pr:=1;
for i:=1 to n do
 begin
 max:=x[i,1];
 for j:=2 to n do
 if x[i,j]>max then  begin max:=x[i,j]; ind:=j; end;
 writeln('‚В ',i,' строке максимальным является ',ind,' элемент, равный =',max:0:2);
 pr:=pr*max;
 end;
writeln('Произведение макс. зн. = ',pr:0:2);
readkey;
end.