Выдает ошибку - рекурсия, цифры числа в обратном порядке [Turbo Pascal].

[Kamelok]

В Turbo Pascal выдает ошибку, а в ABC нет. Сдавать то надо на TurPas скажите, в чем проблема пожалуйста, а то завтра сдавать. Самое интересное в ABC не требует это присваивание и всё работает, также и ставил эти скобки и всё равно ошибка. Программа для написание целово положительного числа в обратном поряде

uses crt; 
procedure EnteringNumber(var x: integer);{Procedure for entering a number}
begin
  repeat
    write('Enter the number = '); 
    readln(x);
  until x > 0;
  writeln; 
end;

function InvertedNumber(x: integer; var new: integer): integer;{function of number revolution}

begin
  if X <> 0 then
  begin
    new := new * 10 + (x mod 10);
    InvertedNumber:=(x div 10, new); 
  end;
  InvertedNumber := new;
end;

procedure OutputtingNumber(new: integer);{Display procedure}
begin
  writeln('Inverted number = ', new);
end;

var{Main program}
  g, new, x: integer;

begin
  repeat
    clrscr;
    writeln;
    writeln('The program is designed to write the whole number in reverse order.');
    writeln;
    EnteringNumber(x);
    InvertedNumber(x, new);
    OutputtingNumber(new);
    writeln;
    writeln('To exit the program, enter the number 0,');
    writeln('if you want to restart a positive integer');
    repeat
      write('Your choice: ');
      readln(g);
      if (g < 0) then
        writeln('Error! Please try again!');
    until (g >= 0);
  until g = 0;
end.

[evg_m]

необходим рекурсивный вызов себя?

   InvertedNumber:=(x div 10, new); 
   InvertedNumber:=InvertedNumber(x div 10, new);

[Kamelok]

Сообщение от evg_m

необходим рекурсивный вызов себя?

   InvertedNumber:=(x div 10, new); 
   InvertedNumber:=InvertedNumber(x div 10, new);

Да.

[Serge_Bliznykov]

PascalABC и Pascal ABC.NET, конечно, ещё те мутанты-уродцы,
но этот кривой код и в них не компилируется, зря наговаривайте!
pabc_error1.png
pabc_error2.jpg

[Kamelok]

А из-за чего теперь идет арифметическое переполнение?

[Serge_Bliznykov]

Сообщение от Kamelok

А из-за чего теперь идет арифметическое переполнение?

наверное, сильно большое число пытаетесь ввести, забыв о размере Integer

замените все Integer на LongInt

ДОБАВЛЕНО.

а переменную NEW кто будет иницилизировать перед первым обращением - Пушкин?!!!

[Serge_Bliznykov]

я бы вообще такой вариант решения предложил (если в задании не задано строго "получить новое число", а есть формулировка "вывести цифры в обратном порядке"):

procedure EnteringNumber(var x: integer);{Procedure for entering a number}
begin
  repeat
    write('Enter the number = '); 
    readln(x);
  until x > 0;
  writeln;
end;

procedure PrintInvertedNumber(x: integer);
begin
  if X > 0 then begin
    Write(x mod 10);
    PrintInvertedNumber(x div 10);
  end
end;

procedure OutputtingNumber(x: integer);{Display procedure}
begin
  write('Inverted number = ');
  PrintInvertedNumber(x);
  WriteLn;
end;

{Main program}
var
  g, x: integer;

begin
  repeat
    writeln;
    writeln('The program is designed to write the whole number in reverse order.');
    writeln;
    EnteringNumber(x);
    OutputtingNumber(x);
    writeln;
    writeln('To exit the program, enter the number 0,');
    writeln('if you want to restart a positive integer');
    repeat
      write('Your choice: ');
      readln(g);
      if (g < 0) then
        writeln('Error! Please try again!');
    until (g >= 0);
  until g = 0;
end.

[Kamelok]

Сообщение от Serge_Bliznykov

а переменную NEW кто будет иницилизировать перед первым обращением - Пушкин?!!!

Я не превышал пределы числа типа Integer, но замечание про инициализацию переменной перед первым обращением-это вы правы. Всегда забываю их занулить перед работой с ними.
Число требуют.
Спасибо большое.