Написать программку в Паскаль abs по теме функции. задачка: отыскать сумму

function SumDigit(a: integer): integer; // функция считает сумму цифр в числе.
begin
 while a gt; 0 do // пока не кончились числа в числе.
  begin
    Result := Result + (a mod 10); // считаем сумму, начиная с заключительней цифры.
    a := a div 10; // удаляем заключительную цифру из числа.
  end;
end;

var // начало основной программки.
      a,b,c, sum: integer; // объявляем переменные целочисленного типа.
begin
   writeln(Введите три целых числа:); // вывод на экран строчки.
   readln(a,b,c); // считываем введенные с клавиатуры числа.
   sum := SumDigit(a) + SumDigit(b)+ SumDigit(c); // считаем сумму цифр всех 3-х чисел.
   writeln(Сумма цифр в числах ,a,, ,b,, ,c, равна: ,sum); // вывод строчки на экран.
end.