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

[CormiX]

Как использовать символьный тип для решения задач?
Например:
есть текст в котором есть хотябы 1 двоеточие(":"). Получить символы, которые располагаются между 1-ым и 2-ым
двоеточиями, если 2-го нет - то до конца текста.
И вот не могу понять, задаю символьный тип и как ему присвоить значение?

s1:array[1..N] of char, как ето использовать для определения ":" в вышенаписаной задаче?

Сообщение отредактировано: CormiX - 27.12.2009 11:09

[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.