Вычислить сумму модулей элементов массива, расположенных после первого элемента, равного нулю

const
  nmax = 100;
 
type
  matr = array[1..nmax] of integer;
 
procedure zapolnenie(var mas: matr; const n: integer; var min: integer);
var
  i: integer;
begin
  min := nmax;
  for i := 1 to n do
  begin
    mas[i] := random(100);
    Write(mas[i]:4);
    if(min > abs(mas[i])) then
      min := mas[i];
  end;
end;
 
procedure summ(var mas: matr; const n: integer; var min: integer);
var
  i, sum: integer;
begin
  i := 1;
  while mas[i] <> 0 do
    inc(i);
  
  while i <= n do
  begin
    sum := sum + mas[i];
    inc(i);
  end;
  
  Writeln;
  Writeln('1)Минимальный по модулю элемент массива: ', min);
  Writeln('2)Сумму модулей элементов массива, расположенных после первого элемента, равного нулю: ', sum);
  Writeln;
end;
 
procedure preobr(const n: integer; const mas: matr; var mas2: matr);
var
  i, j: integer;
begin
  i := 1;
  j := 2;
  while j <= n do
  begin
    mas2[i] := mas[j];
    j := j + 2;
    inc(i);
  end;
  j := 1;
  while j <= n do
  begin
    mas2[i] := mas[j];
    j := j + 2;
    inc(i);
  end;
  
  for i := 1 to n do
    Write(mas2[i]:4);
end;
 
var
  mas, mas2: matr;
  n, min: integer;
 
begin
  readln(n);
  zapolnenie(mas, n, min);
  summ(mas, n, min);
  preobr(n, mas, mas2);
end.

const
  nmax = 1000;
 
type
  matr = array[1..nmax] of integer;
 
procedure zapolnenie(var mas: matr; const n: integer);
var
  i: integer;
begin
  
  for i := 1 to n do
  begin
    mas[i] := random(100);
    Write(mas[i]:4);
  end;
end;
 
procedure summ(var mas: matr; const n: integer);
var
  i, sum: integer;
begin
  i := 1;
  while mas[i] <> 0 do
    inc(i);
  
  while i <= n do
  begin
    sum := sum + mas[i];
    inc(i);
  end;
  
  Writeln;
  Writeln('2)Сумму модулей элементов массива, расположенных после первого элемента, равного нулю: ', sum);
end;
 
var
  mas: matr;
  n: integer;
 
begin
  readln(n);
  zapolnenie(mas, n);
  summ(mas, n);
end.

const
  nmax = 1000;
 
type
  matr = array[1..nmax] of integer;
 
procedure zapolnenie(var mas: matr; const n: integer);//Заполняем массив случайными числами.
var
  i: integer;
begin
  
  for i := 1 to n do
  begin
    mas[i] := random(100);
    Write(mas[i]:4);//Вывод числа на экран.
  end;
end;
 
procedure summ(var mas: matr; const n: integer);//Находим сумму модулей массива.
var
  i, sum: integer;
begin
  i := 1;
  while mas[i] <> 0 do//Находим ноль.
    inc(i);
  
  while i <= n do //Суммируем все числа, стоящие после нуля.
  begin
    sum := sum + mas[i];
    inc(i);
  end;
  
  Writeln;
  Writeln('2)Сумму модулей элементов массива, расположенных после первого элемента, равного нулю: ', sum);//Выводим на экран результат.
end;
 
var
  mas: matr;
  n: integer;
 
begin
  readln(n); //Вводим количество элементов массива.
  zapolnenie(mas, n);//Процедура - Заполняем массив случайными числами.
  summ(mas, n);//Процедура - Находим сумму модулей массива.
end.