Запись» – «Текст» «Запись» – «Число» «Чтение» – «Текст» «Чтение» – «Число очень

Const
  n = 7;

var
  a: array[1..n, 1..n] of integer;
  i, j, sum, min, imin: integer;

begin
  Randomize;
  for i := 1 to n do
    for j := 1 to n do
      a[i, j] := random(100) - 50;
  writeln('Исходный массив');
  for i := 1 to n do
  begin
    for j := 1 to n do write(a[i, j]:4);
    writeln
  end;
  sum := 0;
  min := 100; //у нас в массиве числа на (-50:50)
  for i := 1 to n - 1 do
    for j := 1 to n - i do
      sum := sum + a[i, j];
  for i := 1 to n do
    if min > a[i, i] then begin
      min := a[i, i];
      imin := i
    end;
  writeln('Сумма элементов левее побочной диагонали=', sum);
  writeln('Минимальный элемент на главной диагонали=', min, ', его координаты (', imin, ',', imin, ')')
end.

Контрольный пример:

Исходный массив
  14  39  -7 -26  10 -33   9
  48 -21 -19   6   2  24 -16
  27 -41 -26  -7  16 -27 -34
  42  32 -12 -37  -9  20 -26
 -35 -20 -34  40  -3   5   1
  23  31 -11  -9  26 -28  25
  34  26 -30  11  43  19 -26
Сумма элементов левее побочной диагонали=-4
Минимальный элемент на главной диагонали=-37, его координаты (4,4)

Видимо, это фрагмент программы на VB, привязанный к клику по кнопке Button4 на некоторой форме.
Private Sub CommandButton4_Click()
   Max = 0
   For j = 1 To n
      For i = 1 To m
         If Max < a(i, j) Then Max = a(i, j)
      Next i
   Next j
   TextBox2.Text = TextBox2.Text + Str(Max) + " "
End Sub

Здесь ищется, а затем выводится в поле на форме максимальный элемент двухмерного массива, который извне и заполнен некоторыми значениями. Оператор ReDim я убрал, потому что он уничтожит содержимое массива.