Подпрограммы.Процедуры и функции.Паскаль

[Ann2807]

Здравствуйте. Помогите, пожалуйста, отредактировать код: Ввести функцию/подпрограмму.

1)Дано натуральное число. Верно ли, что в данном числе сумма цифр больше В, а само число делится на В (В вводится с клавиатуры).
program number;
var
N,sum,B, t:integer;
begin
writeln('Введите натуральное число: ');
readln(N);
t:=n;
while N > 0 do
begin
sum := sum + N mod 10;
N:= N div 10;
end;
writeln('Введите делитель числа');
readln(B);
if sum>B then writeln('Верно, что сумма цифр больше ', B , ' ')
else writeln('Неверно, что сумма цифр больше ', B , ' ');
if t mod B =0 then writeln('Верно, что число ', t , ' делится на ', B , ' ')
else writeln('Неверно, что число ', t, ' делится на ', B , ' ')

end.