Вводятся числа до нажатия 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.