70 поинтов отдала... Оооооочень срочно, Пожалуйста посчитайте в среде паскаль

begin
  var n:=ReadInteger('Введите натуральное число:');
  if n<1 then Writeln('Число не является натуральным')
  else begin
    var s:=0;
    while n>0 do (s,n):=(s+n mod 10,n div 10);
    if s=10 then Writeln('Верно, что сумма цифр числа равна 10')
    else Writeln('Неверно, что сумма цифр числа равна 10')
    end
end.


Введите натуральное число: 50311
Верно, что сумма цифр числа равна 10



begin
  var n:=ReadInteger('Введите натуральное число:');
  if n<1 then Writeln('Число не является натуральным')
  else begin
    var a:=new integer[10];
    var good:=False;
    while n>0 do begin
      var i:=n mod 10;
      a[i]+=1; n:=n div 10;
      if a[i]>1 then Good:=True
      end;
    if Good then begin
      Write('Цифры, встречающиеся больее одного раза: ');
      for var i:=0 to 9 do
        if a[i]>1 then Print(i);
      Writeln
      end
    end
end.


Введите натуральное число: 15365123
Цифры, встречающиеся больее одного раза: 1 3 5