Задача на тему Алгоритмы-функции в паскале

[serr92]

Уважаемые форумчане, программисты))) Семестр подошел к концу, а значит контрольные и зачеты уже идут полным ходом. Вот и у меня завтра будет зачет по информатике.
Дабы не ухудшить свое положение мне завтра нужно сдать решенные задачи (программы). Сегодня я сел решить эти задачи (протянул потому что думал что справлюсь за один день) - четыре решил, а пятая никак не поддаётся! Прошу, помогите!

Задача:
Даны три произвольных натуральных числа. Найти такое, у которого наименьшая сумма цифр. Использовать алгоритм-функцию нахождения суммы цифр в записи натурального числа. Составить алгоритм и программу на Паскале.

[alex_fcsm]

var a,b,c:integer;
    min:integer;
function Sum(x:integer):byte;
var s:string;
    i,j,code:integer;
    y:byte;
begin
Str(x,s);
y:=0;
for i:=1 to length(s) do
 begin
  val(s[i],j,code);
  y:=y+j;
 end;
 Sum:=y;
end;

begin
readln(a);
min:=a;
readln(b);
if Sum(min)>Sum(b) then min:=b;
readln(c);
if Sum(min)>Sum(c) then min:=c;
writeln('Min ',min);
end.

[serr92]

alex_fcsm, что это такое?

length(s) do
begin
val(s[i],j,code);

var s:string;
i,j,code:integer;
y:byte;

Мы такоего не проходили...

[alex_fcsm]

for i:=1 to length(s){возвращает длину слова} do
 begin
  val(s[i],j,code);{переводит s[i] в integer}
  y:=y+j;
 end;

Ну если не проходили. то считайте сумму через div и mod

P.S. После первого семестра не пройти string,length O_o

[serr92]

alex_fcsm, я учусь в техникуме и думаю что это нормально, а может мы просто отстаем... а это уже плохо((
А не подскажите как сумму через див и мод искать???)))))

[alex_fcsm]

var i:integer;
    p,y:integer;
    
    begin
    p:=543;
    while p<>0 do
     begin
      y:=p mod 10;
      i:=i+y;
      p:=p div 10;
     end;
     writeln(i);
    end.