В данном двумерном массиве найти строку с наименьшей суммой элементов - Pascal ABC

Формулировка задачи:

Выдает через раз ошибку ,а если менять числа в рандоме иногда вобще может не работать помогите исправить.

const
m=3;
n=3;
type mas=array[1..m,1..n] of integer;
var a:mas;
i,j,Smin,S,NomMin:integer;
begin
  Smin:=0;
  randomize;
  writeln('Исходная матрица');
  for i:=1 to m do
    begin
      for j:=1 to n do
        begin
          a[i,j]:=random(-50,50);
          write(a[i,j]:3);
        end;
        writeln;
    end;
  for i:=1 to m do
    begin
      S:=0;
      for j:=1 to n do
        S:=S+a[i,j];
          end;
        if S<Smin then
          begin
            Smin:=S;
            NomMin:=i;
          end;
    writeln;
    writeln('Строка с наименьшей суммой элементов:');
    for j:=1 to n do
      write(a[NomMin,j]:3);
    writeln (' Сумма элементов = ',Smin:4);
 
end.

Решение задачи: «В данном двумерном массиве найти строку с наименьшей суммой элементов»

Листинг программы

const
  m = 3;
  n = 3;
 
type
  mas = array[1..m, 1..n] of integer;
 
var
  a: mas;
  i, j, Smin, S, NomMin: integer;
 
begin
  Smin := MaxInt;    
  randomize;
  writeln('Исходная матрица');
  for i := 1 to m do
  begin
    for j := 1 to n do
    begin
      a[i, j] := random(-50, 50);
      write(a[i, j]:3);
    end;
    writeln;
  end;
  for i := 1 to m do
  begin
    S := 0;
    for j := 1 to n do
      S := S + a[i, j];
    if S < Smin then
    begin
      Smin := S;
      NomMin := i;
    end;
  end;
  writeln;
  writeln('Строка с наименьшей суммой элементов: ', NomMin);
  for j := 1 to n do
    write(a[NomMin, j]:3);
  writeln;  
  writeln('Сумма элементов = ', Smin:4);
  
end.

Объяснение кода листинга программы

Данный код написан на языке Pascal ABC и выполняет следующие действия:

Объявляет необходимые константы и типы данных:
- m и n - константы, определяющие размеры двумерного массива;
- mas - тип данных, представляющий двумерный массив целых чисел;
- a - переменная, которая будет хранить значение двумерного массива.
Инициализирует переменные Smin, S и NomMin начальными значениями MaxInt (максимальное значение целого числа) и устанавливает Smin в значение S.
Генерирует случайное значение для каждого элемента двумерного массива в диапазоне от -50 до 50.
Выводит исходную матрицу, состоящую из случайно сгенерированных значений.
Для каждой строки матрицы вычисляет сумму элементов и сравнивает ее с текущим минимальным значением суммы. Если сумма текущей строки меньше текущего минимального значения, обновляет значения Smin и NomMin.
Выводит строку с наименьшей суммой элементов и соответствующие значения элементов этой строки.
Выводит сумму элементов, равную значению переменной Smin. Таким образом, данный код находит строку с наименьшей суммой элементов в двумерном массиве и выводит ее на экран вместе с соответствующими значениями элементов этой строки.