Вводятся числа до нажатия 0 (не более 6 ) составить число из первых цифр всех чисел

program raf105;

var

a: array[1..6] of integer;

i,c,x: integer;

begin

writeln('Вводите числа по очереди');

writeln('Чтобы закончить введите 0');

readln(a[1]);

c:= 1;

repeat

while a[c] div 10 <> 0 do

a[c]:= a[c] div 10;

c:= c+1;

readln(a[c]);

until a[c] = 0;

c:= c-1;

x:= x + a[1]*trunc(power(10,c-1));

for i:=2 to c-1 do

x:= x + a[i]*trunc(power(10,c+1-i)) div 10;

x:= x + a[c];

writeln('Вывод: ',x);

end.