Где не правильно (простенькая прога)

var x,a,b:longint;
ab:array[1..4] of longint;
fc:array[1..17] of integer;

begin
writeln('Kart number=');
write('1=');
readln(ab[1]);
write('2=');
readln(ab[2]);
write('3=');
readln(ab[3]);
write('4=');
readln(ab[4]);

b:=4;
[color=red]тут закидываем знаки в вектор [/color]
for a:=16 downto 1 do
  begin
   fc[a]:=ab mod 10;
   ab:=ab div 10;
   writeln('fc=',fc[a],'  ab=',ab);
   if (a=12)or(a=8)or(a=4) then dec(b);
  end;

for a:=1 to 16 do
write(fc[a]);
a:=16;
x:=0;
for b:=1 to 8 do
begin
fc[a]:=fc[a]*2;
a:=a-2;
end;
writeln;
for a:=1 to 16 do
write(fc[a]);
for a:=1 to 16 do
x:=x+fc[a];
writeln('x=',x);
readln;
end.