Здрасте! Такой вот вопросик: сидел тут, сидел, разбирал понимаешь метод цифровой сортировки в паскале, вроде метод то понял, только вот не знаю как реализовать внесение данных по разрядам. Тобишь: когда разбираем много значений, раскладываем их по ячейкам 0..9 допустим, а ведь есть и повторяющиеся значения!
Так вот вопрос: как хранить в одной ячейке несколько значений, и после этого их оттуда достать?
Накодил тут немного, может подскажете что делать?
Только про мозги не надо, я и так знаю что не гений

Приложение:
Program lab1;
uses crt;
const
n=200; {Количество повторений}
var
x,i,j,quit,sel,pv,max,t,err,sp:integer;{переменные}
check,m,c,cc:real;
s,s2:string;
a: array[0..n] of integer;{массив}
b: array[0..n,0..n] of integer;{массив}
p: array[0..n] of integer;{массив}

procedure vivod(x:integer; g:array of integer); {процедура вывода содержимого массива (для переменых LC,CC)}
begin
pv:=pv+1; {номер строки}
if n<=200 then{выбор размерности}
if pv>9 then{если выведено более 9 строк}
begin
pv:=0;
writeln(g[x]:4);
end
else
write(g[x]:4)
else
if pv>19 then{если выведено более 19 строк}
begin
pv:=0;
writeln(g[x]:4);
end
else
write(g[x]:4);
end;


begin {начало программы}
clrscr; {очистка экрана}
randomize;
while quit<>1 do
begin
randomize;
clrscr;
writeln('-----------------------');
writeln('Laboratornaya rabota #3');
writeln(' 4ACTb 2');
writeln('1. Zapolnenie Serii');
writeln('2. Sortirovka');
writeln('3. Prosmotr massiva');
writeln('4. Exit');
writeln('-----------------------');
writeln('----BY-HELL_Phoenix----');
readln(sel);
case sel of
1:
begin {Пункт меню: Заполнение Серий}
clrscr;
writeln('-----------------------');
writeln('1. Slu4ayniy vibor');
writeln('2. Ot 1 do n');
writeln('3. Ot n do 1');
writeln('-----------------------');
writeln('----BY-HELL_Phoenix----');
readln(sel);
case sel of
1:
begin
clrscr;
{заполнение массива А случайными числами}
pv:=0; {обнуление количества строк}
check:=0; {обнуление контрольтной суммы}
writeln('Massiv A:');
a[1]:=random(5);
for i:=1 to n do
a[i+1]:=random(n+1);
for i:=1 to n do
vivod(i,a);
for i:=1 to n do
check:=check+a[i];
writeln(' Kontrolnaya summa = ',check:10:0);
writeln;
readln;
end;


2:
begin
clrscr;
pv:=0; {обнуление количества строк}
check:=0; {обнуление контрольтной суммы}
writeln('Massiv a:');
{заполнение массива}
for i:=1 to n do
begin
a[i]:=i;
vivod(i,a);
check:=check+a[i];{контрольная сумма}
end;
writeln(' Kontrolnaya summa = ',check:10:0);
readln;
end;
3:
begin
clrscr;
pv:=0; {обнуление количества строк}
check:=0; {обнуление контрольтной суммы}
writeln('Massiv a:');
j:=n;
{заполнение массива}
for i:=1 to n do
begin
a[i]:=j;
j:=j-1;
vivod(i,a);{вывод текущего элемента}
check:=check+a[i];{контрольная сумма}
end;
writeln(' Kontrolnaya summa = ',check:10:0);
readln;
end;

end;


end;
2:
begin
clrscr;
max:=a[1];
for i:=2 to n do
begin
if max<a[i] then
max:=a[i];
end;
str(max,s);
max:=length(s);
t:=max;
sp:=9;
for i:=1 to max do
begin
while sp<>0 do
begin
for j:=1 to n do
begin
str(a[j],s);
s2:=copy(s,t,t);
val(s2,x,err);
if x=sp then
b[x,j]:=a[j];
end;
sp:=sp-1;
end;
for i:=1 to max do
begin
while sp<>0 do
begin
for j:=1 to n do
begin
if b[sp,j]<>null then
a[j]:=b[sp,j];
end;
end;
end;
t:=t-1;
end;
readln;
end;
3:
begin
clrscr;
check:=0;
for i:=1 to n do
check:=check+a[i];
pv:=0;
writeln('Massiv A');
for i:=1 to n do
vivod(i,a);
writeln(' Kontrolnaya summa = ',check:10:0);
readln;
end;
4: break;
end;
end;





end.