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

[CormiX]

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

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

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

[CormiX]

А что не так?(
ета прога почемуто не работает(((

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

[Lapp]

ета прога почемуто не работает(((

Ты запутался немного в пределах. Я исправил. Отдельно нужно иметь макисмальный размер массива (это m сейчас) и количество вводимых символов (это n).
Вот так:

program xxx_1;
uses
  crt;
const
  m=100;
var
  s1:array[1..m] of char;
  flag: boolean;
  i,n: integer;
begin
  write('n=');
  readln(n);
  for i:=1 to n do begin
    write('s1[',i,']=');
    readln(s1[i]);
  end;
  flag:=false;
  for i:=1 to n do begin
    if s1[i]=':' then flag:=not flag else if flag then Write(s1[i])
  end;
end.

И постарайся заботиться о формате. Если бы первый вариант был правильно отформатирован, ошибка была бы замечена раньше - это я тебе гарантирую.