Операции с числом и еще одна програмка - Turbo Pascal

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

Помогите пожалуйста решить две задачи. [img]http://s004.***********/i208/1004/78/9fda78f64a62.jpg[/img]

Решение задачи: «Операции с числом и еще одна програмка»

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

program pr1;
var ch,sum,pr:longint; kz,min,max,i:byte; z:array[1..10] of byte;
procedure pr_raspak(ch:longint; var kz:byte; var z:array[1..10] of byte; var sum,pr:integer);
begin
   kz:=0;sum:=0;pr:=1;
   while ch<>0 do
   begin
     inc(kz);
     sum:=sum+(ch mod 10);
     pr:=pr*(ch mod 10);
     z[kz]:=ch mod 10;
     ch:=ch div 10;
   end;
end;
begin
  writeln('Введите число');
  readln(ch);
  pr_raspak(ch,kz,z,sum,pr);
  writeln('Сумма цифр числа- ',sum);
  writeln('Произведение цифр числа- ',pr);
  max:=1;
  min:=1;
  for i:=2 to kz do
  begin
    if z[i]>z[max] then max:=i;
    if z[i]<z[min] then min:=i;
  end;
  writeln('Максимальная цифра в записи исходного числа- ',z[max]);
  writeln('Максимальная цифра в записи исходного числа- ',z[min]);
  z[min]:=z[min]+z[max];//меняем
  z[max]:=z[min]-z[max];//местами
  z[min]:=z[min]-z[max];//мин и макс
  ch:=0;
  for i:=kz downto 1 do
  ch:=ch*10+z[i];
  writeln('Число в котором мин и макс поменяли местами- ',ch);
end.

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

Список действий в коде:

Ввод числа с клавиатуры и сохранение его в переменную ch.
Вызов процедуры pr_raspak, передавая ей значение переменной ch, а также переменные kz, z, sum и pr в качестве аргументов.
Вывод суммы цифр числа на экран.
Вывод произведения цифр числа на экран.
Инициализация переменных max и min значением 1.
Проход по массиву z от индекса 2 до kz и обновление значений max и min в случае нахождения большей или меньшей цифры.
Вывод на экран максимальной цифры в записи исходного числа.
Вывод на экран минимальной цифры в записи исходного числа.
Обновление значений z[min] и z[max] путем сложения z[max] и z[min] и вычитания z[max], а также z[min]-z[max].
Обновление значения ch путем перебора массива z от kz до 1 с умножением значения каждого элемента на 10 и добавлением его к ch.
Вывод на экран получившегося числа.