Решить задачи, включив требуемые процедуры и функции в состав модуля Unit.

[Veronika_13]

не работает код. вообще запуталась

[BDA]

Проверил - работает. Может быть, Вы неправильно соединили эти 2 куска?

[Veronika_13]

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

[BDA]

Нужно самый верхний var в первом коде заменить на var из второго кода, самый последний begin..end в первом коде заменить на begin..end из второго кода.

[Veronika_13]

всё так и сделала, но переменные р и остальные оказались неизвестные и программа не пошла

[BDA]

Покажите, как Вы их соединили.

[Veronika_13]

program lab_5;
uses crt;
var
  var
  sum, a: string;
  n, i: integer;

function max(a, b: integer): integer;
begin
  if a > b then
    max := a
  else
    max := b;
end;

function add(s1, s2: string): string;
var
  res: string;
  k, p, i, j, z: integer;
begin
  k := max(length(s1), length(s2));
  p := k - length(s1);
  for i := 1 to p do
    s1 := '0' + s1;
  p := k - length(s2);
  for i := 1 to p do
    s2 := '0' + s2;
  res := '';
  z := ord('0');
  p := 0;
  for i := k downto 1 do
  begin
    j := ord(s1[i]) + ord(s2[i]) - 2 * z + p;
    res := chr(j mod 10 + z) + res;
    p := j div 10;
  end;
  if p > 0 then
    res := chr(p + z) + res;
  add := res;
end;

begin
  readln(n);
  sum := '0';
  for i := 1 to n do
  begin
    readln(a);
    sum := add(sum, a);
  end;
  writeln(sum);
end.
end.

[BDA]

var
  sum, a: string;
  n, i: integer;
  
function max(a, b: integer): integer;
begin
  if a > b then
    max := a
  else
    max := b;
end;

function add(s1, s2: string): string;
var
  res: string;
  k, p, i, j, z: integer;
begin
  k := max(length(s1), length(s2));
  p := k - length(s1);
  for i := 1 to p do
    s1 := '0' + s1;
  p := k - length(s2);
  for i := 1 to p do
    s2 := '0' + s2; 
  res := '';
  z := ord('0');
  p := 0;
  for i := k downto 1 do
  begin
    j := ord(s1[i]) + ord(s2[i]) - 2 * z + p;
    res := chr(j mod 10 + z) + res;
    p := j div 10;
  end;
  if p > 0 then
    res := chr(p + z) + res;
  add := res;
end;

begin
  readln(n);
  sum := '0';
  for i := 1 to n do
  begin
    readln(a);
    sum := add(sum, a);
  end;
  writeln(sum);
end.

[Veronika_13]

а что надо вставить, чтобы при вводе букв выбивалась ошибка ввода?

[BDA]

Например:

function check(const a: string): boolean;
var
  i: integer;
begin
  for i := 1 to length(a) do
    if not (a[i] in ['0'..'9']) then
    begin
      check := true;
      exit;
    end;
  check := false;
end;
...
    readln(a);
    if check(a) then
    begin
      writeln('INPUT ERROR');
      exit;
    end;
    sum := add(sum, a);