массив из строк, и формирование вектора Опции

[>hamka<]

Когда есть массив из строк, то при добавлении нового элемента, он подсоединяется к предыдущей строке. А как же их разграничить.

Код

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);
....

если они разграничиваются ( ведь массив же ), то где же моя ошибка ? =((

[Altair]

ну вот с повторением ввода..

Код

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.