Вывести сумму всех цифр каждого из чисел последовательности

const
  m = 3; //количество чисел
var
  inp: array[1..m] of string; //массив строк
  n, s: array[1..m] of integer; //массивы для чисел и сумм их цифр
  i, sum, err: integer;
begin
  repeat //начало цикла перезапуска программы
    writeln('Числа должны быть натуральные, длиной от 2 до 8 цифр, количество чисел: ', m, '.');
    writeln('Введите числа, каждое на отдельной строке:');
    for i := 1 to m do readln(inp[i]); //цикл ввода строк
    sum := 0; //обнуляем общую сумму
    for i := 1 to m do //цикл преобразования строк в числа, проверки и подсчёта суммы цифр
      begin
        val(inp[i], n[i], err); //попытка перевести строку в число
        if err > 0 then writeln('Ошибка: "', inp[i], '" не является натуральным числом, повторите ввод.') //не натуральное число
        else
          if (n[i] < 10) or (n[i] > 99999999) then //не то количество цифр
            begin
              writeln('Ошибка: число "', n[i], '" вне заданного диапазона, повторите ввод.');
              err := 1
            end
          else //нет ошибки
            begin
              s[i] := 0; //обнуляем сумму цифр текущего числа
              repeat //цикл подсчёта суммы цифр
                inc(s[i], n[i] mod 10); //добавляем цифру к сумме
                n[i] := n[i] div 10 //убираем цифру из числа
              until n[i] = 0; //конец цикла подсчёта суммы цифр
              inc(sum, s[i]) //добавляем сумму цифр к общей сумме
            end;
        if err > 0 then break //есть ошибки, досрочно выходим из цикла преобразования
      end; //конец цикла преобразования, проверки и подсчёта суммы
    if err = 0 then //нет ошибок, выводим ответ
      begin
        writeln('Сумма цифр каждого числа и общая сумма цифр:');
        for i := 1 to m do writeln(s[i]); //цикл вывода сумм чисел
        writeln(sum); //выводим общую сумму
        if sum > 30 then writeln('Победа! Победа! Победа!') //и сообщение по условию
        else writeln('С кем не бывает...')
      end
  until err = 0 //конец цикла перезапуска программы: если нет ошибок, то выход из программы
end.