Задачи, Массив(процедура), робота со строками. Опции

[Sav93]

Зравствуйте, помогите решить 2 задачи, на завтра задали 6ЛБ, а я никак не успеваю.

1.Дано текст, в котором содержится хоть одно двоеточие. Получить символы, размещенные между первым и вторым двоеточием (если второе двоеточие отсутствует - до конца текста)

2.Дана матрица A nxn. Получить матрицу B nxn, елементы которой вычисляются за формулой:
b(ij)= знак системы
a(ij), при j>=i,
a(ij), при j<i.
Для ввода и вывода элементов матриц составить процедуры, обеспечивающие ввод и вывод элементов в виде таблицы.
Буду очень благодарен!

Спасибо!

[Sav93]

 uses crt;
var s:string;
    t1,t2,i,j,k:byte;
begin
clrscr;
writeln('Введите текст: ');
readln(s);
i:=1;
k:=0;
t1:=0;
t2:=0;
while(i<=length(s))and(k<=2) do
 begin
  if s[i]=':'then
    begin
     k:=k+1;
     if k=1 then t1:=i
     else if k=2 then t2:=i;
    end;
  i:=i+1;
 end;
 begin
  s:=copy(s,t1+1,t2-t1-1);
  write(s);
 end;
readKey;
end. 

Текст1:текст2:текст3
выдает текст2, это правельно, но если нету второго двоеточия, она не работает.

Сообщение отредактировано: Sav93 - 22.12.2010 0:30