Ввести натуральное число, поменять в нем все цифры на следующую, а цифру 9 на 0. pascalabc ввод 193 вывод 204

// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var n:=ReadInteger;
  var St:=new Stack<integer>;
  while n>0 do begin
    St.Push((n+1) mod 10);
    n:=n div 10
    end;
  St.Println('')
end.

Примеры
193
204

1234567890
2345678901

var m: string;
      p: array[1..99] of integer;
begin read(m);
   for var i := 1 to m.Length do begin
         if m[i] <> '9' then
              write(Succ(m[i]))
         else
              write('0');
   end;
end.