Nem értem, hogy ez a Pascal nyelvű program miért nem jó. Miért?

Nem értem, hogy az >until< szó utáni c=0-nál miért van típuseltérés. (Program a keresztek között feltüntetve.)

################################

const d=100;

var c:array[1..100] of integer;

a,b,e:integer;

begin

repeat

for b:=1 to 1 do begin

writeln('Írj be egy számot.: ');

readln(c[b]);

end;

until c=0;

for b:=1 to d do write(c[b],', ');

readln;

writeln;

end.

######################################