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

[CormiX]

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

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

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

[CormiX]

Ага тоесть нужно выделить ети символы и копировать?
Но не знаю как.

Добавлено через 14 мин.

program strins_1;
uses crt;
var s1,s:string;
    i:integer;
begin
clrscr;
writeln('BBegiTb P9goK CuMBoJIiB Ta o6oB93KoBo gBoKpa/7Ky');
readln(s);
i:=pos(':',s);
delete(s,1,i);
i:=pos(':',s);
if i=0 then writeln(s)
else
begin
s1:=copy(s,1,i-1);
writeln(s1);
end;
readln;
end.

во я разобрался, правда не массивом...)

[andriano]

во я разобрался, правда не массивом...)

Ну, вообще-то, строка - это массив символов (хотя и несколько своеобразный).
И еще.
При обработке строк (и любых других массивов) есть два подхода:
1. Мы курочим саму строку, добиваясь, чтобы в ней осталось только то, что нам нужно. При этом не используется дополнительная память (например, другая строка, у тебя s2).
2. Оригинальная строка сохраняется, а нужное мы формируем в другой строке. При этом дополнительная память, та самая вторая строка, используется.

Ты же на первом этапе курочишь строку, а на втором - переносишь ее часть в другую переменную. Было бы гораздо логичнее, если бы ты, найдя втрое вхождение двоеточия, отрезал "хвост" строки той же delete.