Описать процедуру SumDigit(N,S), находящую сумму цифр S целого числа N (99>=N>=10) (N — входной, S — выходной параметр). Используя эту процедуру, найти суммы цифр пяти данных чисел — Pascal(Паскаль)

uses crt;
procedure SumDigit(n:integer;var s:byte);
begin
s:=n div 10+n mod 10;
writeln('Сумма цифр=',s);
end;
var n,i,s:byte;
begin
for i:=1 to 5 do
 begin
  write('Введите двухзначное число n=');
  repeat
   readln(n);
  until n in [10..99];
  SumDigit(n,s);
 end;
readln //если АВС, то не нужно
end.