Определить, в котором сумма цифр наибольшая и в каком произведение цифр наименьшее

program HELP_2;
 
var
  sum, dob, min, max: longint;
  a, b, c: array[1..5] of longint;
  i: integer;
 
procedure GetSum(var chislo: longint);
begin
  while chislo <> 0 do
  begin
    sum := sum + chislo mod 10;
    chislo := trunc(chislo / 10);
  end;
end;
 
function GetMul(var number: longint): longint;
begin
  dob := 1;
  while number <> 0 do
  begin
    dob := dob * number mod 10;
    number := number div 10;
  end;
  GetMul:=dob;
end;
 
begin
  writeln('Введите 5 чисел');
  writeln('Ограничение на количество цифр: 5>=число>=3');
  for i := 1 to 5 do read(a[i]);
  for i := 1 to 5 do if (a[i]<100) or (a[i]>100000) then
  begin
  writeln('Неверный ввод!');
  exit;
  end;
  for i := 1 to 5 do
  begin
    GetSum(a[i]);
    b[i] := sum;
    if (max<b[i]) then max:=b[i];
  end;
  for i := 1 to 5 do
  begin
    c[i]:=GetMul(a[i]);
    if min>c[i] then min:=c[i];
  end;
  writeln('Наибольшая сумма цифр: ',max);
  writeln('Наименьшее произведение цифр: ',min)
end.

program xx;
var
a,b,s,p,i,j,max,min,maxi,mini:integer;
 
procedure sum (x,y:integer; var z:integer);
begin
z:=0;
repeat
y:=x mod 10;
x:=x div 10;
z:=z+y;
until x=0;
end;
 
function pro (x,y:integer; var z:integer):integer;
// var z:integer;
begin
z:=1;
repeat
y:=x mod 10;
x:=x div 10;
z:=z*y;
until x=0;
pro:=z;
end;
 
begin
max:=0;
min:=maxint;
 
for i:=1 to 5 do
begin
writeln;
writeln ('Введите число из 3-5 знаков');
readln (a);
 
sum (a,b,s);
p:=pro(a,b,p);
 
writeln ('Сумма цифр числа=',s);
writeln ('Произведение цифр числа=',p);
 
if s> max then
maxi:=i;
if p<min then
mini:=j;
 
end;
 
writeln ('Число с наибольшей суммой цифр ',i, ' по счету');
writeln ('Число с наименьшим произведением цифр ',j,' по счету');
readln;readln;end.

program xx;
 var
 a,s,p,i,max,min,maxi,mini:integer;
 
 function sum (x:integer):integer;
 var z:integer;
 begin
 z:=0;
 repeat
 z:=z+ (x mod 10);
 x:=x div 10; 
 until x=0;
 sum:=z;
 end;
 
 function pro (x:integer):integer;
 var z:integer;
 begin
 z:=1;
 repeat
 z:=z* (x mod 10);
 x:=x div 10; 
 until x=0;
 pro:=z;
 end;
 
 begin
 max:=0;
 min:=maxint;
 
 for i:=1 to 5 do
 begin
 writeln;
 writeln ('Введите число из 3-5 знаков');
 readln (a);
 
 s:=sum (a);
 p:=pro(a);
 
 writeln ('Сумма цифр числа=',s);
 writeln ('Произведение цифр числа=',p);
 
 if s> max then begin
 maxi:=i; max:=s; end;
 if p<min then begin
 mini:=i; min:=p; end;
 
 end;
 
 writeln ('Число с наибольшей суммой цифр ',maxi, ' по счету');
 writeln ('Число с наименьшим произведением цифр ',mini,' по счету');
 readln;readln;end.