-Цитата от Трэй 
пацаны, помогите
что-то я не выкупаю как эта херня работает
Показать скрытый текст
for i:=1 to 2 do begin
c:=c div 10;
a[i]:=c;
в идеале трехзначное число должно разбиваться на цифры
но получается в первом элементе остаётся двузначное число
Код:
for i:= 1 to 3 do
begin
x:= c mod 10;
c:= c div 10;
a[i]:= x;
end;