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

[Sav93]

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

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

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

Спасибо!

[Lapp]

Решение можно еще упростить, если не жалко ломать начальную строку (а судя по решению автора темы - не жалко).

var
  s: string;

begin
  writeln('Введите текст: ');
  readln(s);
  Delete(s,1,Pos(':',s));
  if Pos(':',s)=0 then
    WriteLn(s)
  else
    writeln(copy(s,1,Pos(':',s)-1));
  readLn;
end.