[icWasya]

вот это

Код:

SetLength(a,m);
  for i := Low(a) to High(a) do
    SetLength(a[i],n);

и вот это

Код:

SetLength(a,m,n);

суть одно и то же, только второе - короче и красивее
А первый вариант модно использовать, когда массив -не прямоугольный, то есть в разных строках - разное количество элементов.

К тому же надо добавить печать элементов массивов
надо так

Код:

38 write('A[',i+1,',',j+1,'] = '); a[i,j]:=Zetta(Random(10)); 
39 writeln(a[i,j]);
и 
41 write('B[',i+1,'] = '); b[i]:=Zetta(Random(20));
42 writeln(b[i]);

MAD: Код надо оформлять вне зависимости от ситуации.