Создать массив символов, содержащий цифры данного числа в обратном порядке

Program maxim;
Uses crt;
 var mas:array [1..100] of integer;
     n,i,c,e:integer;
     s:string;
begin
clrscr;
 Writeln (' Vvedite chislo ');
 Readln (n);
 str (n,s);
 for i:=1 to length(s) do begin
                          Val (s[i],c,e);
                          mas[i]:=c;
                          end;
 writeln (' cifry v obratnom por9dke ');
 for i:=length(s) downto 1 do
 write (mas[i]:3);
Readln
end.

function IntToInvStr(Value: Integer): String;
Var
  i: Integer;
  S: String;
begin
 Str(Value, S);
 IntToInvStr := S;
 for i := Length(S) downto 1
 do IntToInvStr[i] := S[Length(S)-i+1];
end;
begin
 WriteLn(IntToInvStr(17309));
end.

Program maxim;
Uses crt;
 var mas:array [1..100] of integer;
     n,i,c,e:integer;
     s:string;
begin
clrscr;
 Writeln (' Vvedite chislo ');
 Readln (n);
 str (n,s);
 for i:=1 to length(s) do begin
                          Val (s[i],c,e);
                          mas[length(s) -i+1]:=c;
                          end;
 writeln (' cifry v obratnom por9dke ');
 for i:=1 to length(s) do
 write (mas[i]:3);
Readln
end.

WriteLn(IntToInvStr(17309));

S := IntToInvStr(17309);

k:=0;
while n>0 do
 begin
   k:=k+1;
   m[k]:=n mod 10;
 end;