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

[>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]

Смотри-ка сюда...

Function strInt(s:string):longint;
var
 i:byte; ss:longint;
begin
 ss:=0;
 for i:=1 to length(s) do
 begin
  ss:=ss+(ord(s[i])-48)*trunc(Exp((length(s)-i)*Ln(10)));
 end;
 strInt:=ss;
end;

var
 a:array[1..10] of string;
 b:array[1..10] of longint;
 i:integer;
begin
 for i:=1 to 10 do readln(a[i]);
 for i:=1 to 10 do b[i]:=strInt(a[i]);
 {...}
end.

Функция strInt(s:string):longint; переводит из строки в число.. ошибки не учитываются...
дальше сама прога проста.. вводится 10 строк и переводится в 10 чисел..
на основе того ,что я дал, ты можешь все сделать дальше..
еще вопросы есть?

[>hamka<]

Смотри-ка сюда...

Function strInt(s:string):longint;
  ss:=ss+(ord(s[i])-48)*trunc(Exp((length(s)-i)*Ln(10)));

еще вопросы есть?

Спасибики!
Тока один еще вопрос: а после транк'а что за выражение такое, т.е. что оно делает по алгоритму перевода строки в число?