массивы одномерные и многомерные

Program maxim;
Uses crt;
 var b:array [1..100,1..100] of integer;
     i,j,n,max:integer;
begin
clrscr;
 Writeln (' vvedite razmernost matrici ');
 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;
Max:=b[1,1];
 for i:=1 to n do
     for j:=1 to n do
      if b[i,j]>=max then max:=b[i,j];
writeln (' Maximalnyi element - ',max);
Readln
end.

program hhh;
Uses crt;
 Var x:array [1..100] of integer;
     i,n,k:integer;
begin
clrscr;
writeln ('Vvedite kol - vo elementov ');
Readln (n);
 for i:=1 to n do begin
                  write ('Vvedite ',i, ' element ');
                  Readln (x[i]);
                  end;
Writeln (' polycheny chisla ');
for i:=1 to n do write (x[i]:3);
writeln;
Writeln (' Chisla deljashiesja na 4 ');
For i:=1 to n do
  if x[i] div 4 = 0 then begin
                         write (x[i]:4);
                         k:=k+1;
                         end;
writeln ('Kol-vo =',k);
Readln
end.

uses crt;
const n=6;
var a:array[1..n] of integer;
    k,i:integer;
begin
 Writeln('Введите массив...');
  for i:=1 to n do
   begin
    Write('a[',i,']->');
    Readln(a[i]);
   end;
 Writeln('------------');
  k:=0;
  for i:=1 to n do
   if a[i] mod 4=0 then
     k:=k+1;
 Writeln('Кол-во= ',k);
 Readln;
end.

a:array[1..100] of integer;

write('n=');
read(n);

for i:=1 to n do