Хочу разобраться в символьном типе Опции

[andriano]

Код

n=10
s1[1]=a
s1[2]=:
s1[3]=b
s1[4]=:
s1[5]=c
s1[6]=:
s1[7]=d
s1[8]=:
s1[9]=e
s1[10]=:
bd

Lapp, почему выводится 2 буквы, когда между 1 и 2 вхождениями двоеточия содержится только одна?

const
  m=100;
var
  s1:array[1..m] of char;
  state : integer;
  i,n: integer;
begin
  write('n=');
  readln(n);
  for i:=1 to n do begin
    write('s1[',i,']=');
    readln(s1[i]);
  end;
  state:=0;
  for i:=1 to n do begin
    if s1[i]=':' then inc(state) else if state = 1 then Write(s1[i])
  end;
end.