write('Введите количество сортируемых цифр ( не больше 10 ) --> ');
readln(n);
for I:=1 to length(n) do
begin
chislo2:=ord(n[i])-48;chislo:=chislo*10; chislo:=chislo2+chislo;
end;
if (chislo > 10) or (chislo=0) or (chislo2 < 0) or (chislo2 > 9) then
writeln('Некорректное значение');
k:=0;
for j:=1 to chislo do
begin
write('Введите ', j, '- ое число --> ');
readln (a[j]);
for s:=1 to length(a[j][s]) do
begin
ch2:=ord(a[j][s])-48; ch:=ch*10; ch:=ch2+ch; end;
writeln(ch);
....

...
begin
for i:=1 to chislo do
begin
Z:
write('Введите ', i, '- ое число --> ');
readln (a[i]);
for j:=1 to length (a[i]) do
begin
l:=ord (a[i][j])-48;
if (l< 0) or (l> 9) then begin writeln('Некорректное значение');
goto Z; end; end;
for i:=1 to chislo do
b[i]:=PEREVOD(a[i]);
SORTIROVKA (chislo,b);
end;
...

Uses Crt;
...
Function myRead: String;
 var s: string;
   ch: char;
 begin
   s := '';
   repeat
     ch := readkey;
     if ch in ['0' .. '9'] then
       begin
         write(ch); s := s + ch
       end;
   until ch = #13;
   writeln; myRead := s
 end;
...
{ в основной программе: }
for i:=1 to chislo do
 begin
   write('Введите ', i, '- ое число --> ');
   a[i] := myRead;
 end;
{ далее по тексту }

if n=……? then writeln.

begin
clrscr;
main:
writeln;
write('Введите количество сортируемых цифр ( не больше 10 ) --> ');
readln(n);
for j:=1 to length (n) do
begin
l:=ord (n[j])-48;
if (l< 0) or (l> 9) then begin writeln('Некорректное значение');
goto main; end; end;
goto Dalee;

Const
Count=10;
Type
arrType = Array[1 .. Count] Of Longint;

Procedure Bubble(Var ar: arrType; n: integer);
Var i, j, T: Integer;
Begin
  For i := 1 To n Do
    For j := n DownTo i+1 Do
      If ar[Pred(j)] > ar[j] Then { < }
        Begin
          T := ar[Pred(j)]; ar[Pred(j)] := ar[j]; ar[j] := T
        End
End;

Function strInt(s:string):longint;
var
i:byte; ss:longint;
setc:set of char;
begin
setc:=['0'..'9'];
ss:=0;
for i:=1 to length(s) do
begin
 If s[i] in setc then ss:=ss+(ord(s[i])-48)*trunc(Exp((length(s)-i)*Ln(10)));
end;
strInt:=ss;
end;

var
s:string;
a:array[1..Count] of string;
b:arrtype;
i,n:integer;
begin
write('Сколько будем вводить чисел:'); readln(n);
For i:=1 to n do readln(a[i]); {ввод 10 чисел}
For i:=1 to n do b[i]:=StrInt(a[i]); {переводим в числа}
Bubble(b,n); {сортируем}
clrscr;
for i:=1 to n do writeln(b[i]); {вывод на экран отсортирвоанных чисел}
end.

Const
Count=10;
Type
arrType = Array[1 .. Count] Of Longint;

Procedure Bubble(Var ar: arrType; n: integer);
Var i, j, T: Integer;
Begin
  For i := 1 To n Do
    For j := n DownTo i+1 Do
      If ar[Pred(j)] > ar[j] Then { < }
        Begin
          T := ar[Pred(j)]; ar[Pred(j)] := ar[j]; ar[j] := T
        End
End;

Function strInt(s:string):longint;
var
i:byte; ss:longint;
setc:set of char;
begin
setc:=['0'..'9'];
ss:=0;
for i:=1 to length(s) do
begin
 If s[i] in setc then ss:=ss+(ord(s[i])-48)*trunc(Exp((length(s)-i)*Ln(10)));
end;
strInt:=ss;
end;

var
s:string;
a:array[1..Count] of string;
b:arrtype;
i,n,j:integer;
setc:set of char;
pr:boolean;
begin
setc:=['0'..'9'];
write('Сколько будем вводить чисел:'); readln(n);
For i:=1 to n do
begin
 repeat
  readln(a[i]); {ввод 10 чисел}
  pr:=false;
  s:=a[i];
  For j:=1 to length(s) do If not(s[j] in setc) then pr:=true;
 until not pr;
end;
For i:=1 to n do b[i]:=StrInt(a[i]); {переводим в числа}
Bubble(b,n);
clrscr;
for i:=1 to n do writeln(b[i]);
end.