VBA Как переписать код из паскаля в бейсик

[Саня Новиков]

Не имею ни малейшего понятия, как это сделать

var
  A: array[1..10, 1..10] of integer;
  i, j, M, N: byte;
  MaxElem: integer;

begin
  write('M = ');
  readln(M);
  write('N = ');
  readln(N);
  { Формируем и выводим матрицу: }
  randomize;
  writeln('Случайная матрица ', M, 'x', N, ':');
  for i := 1 to M do begin
    for j := 1 to N do begin
      a[i, j] := -100 + random(200);
      write(a[i, j]:4)
    end;
    writeln
  end;
  writeln;
  writeln('Максимальный элемент в каждой строке:');
  for i := 1 to M do begin
    { Начальное значение максимального элемента 
     равно первому элементу строки (j = 1): }
    MaxElem := a[i, 1];
    for j := 2 to N do { Проверяем остальные элементы строки: j = 2, 3, ..., N }
      { Если a[i,j] больше максимума, то новым максимумом становится a[i,j] }
      if a[i, j] > MaxElem then MaxElem := a[i, j];
    writeln(i, '-я строка: максимальный элемент = ', MaxElem)
  end;
  readln
end.

[СтудПом]

Вряд ли кто будет этим пачкаться за бесплатно, работа тупая и неблагодарная. Так что берите шаблоны и ваяйте:
Работа с матрицами на QuickBASIC
Матрицы на Turbo BASIC