ПОМОГИТЕ ПОЖАЛУЙСТА!!!!! ОЧЕНЬ СРОЧНО!!!! Решить с использованием подпрограммы.
Заменить данное натуральное число на число, которое получается из исходного записью его цифр в обратном порядке (например, дано число 156, нужно получить 651)

// Заменить данное натуральное число на число, которое получается из исходного записью его цифр в обратном порядкеVar N:integer;procedure Change(var n:integer);var n2,n3,i:integer;begini:=10;n2:=n;n:=0; while n2>0 do begin n3:=n2 mod 10; n2:=n2 div 10; n:=n*i + n3; end;end;begin write ('wedite chislo '); readln(N); Change(N); writeln(N);end.

var N:integer;procedure Change(var n);var n2,n3,i:integer;begini:=1;n2:=n;n:=0; while n2>0  begin    n3:=n2 mod 10;   n2:=n2 div 10;   n:=n*i + n3;   i:=i*10;  end;end;begin  readln(N);  Change(N);  writeln(N);end.