Процедуры delete и insert

НОВАЯ ТЕМА
Задача. Дана строка: логин:пароль@адрес_сервера. В целях обеспечения безопасности из строки решили удалить пароль и вставить вместо пароля *
Пример
Входная строка: CoolUser:parol@ftp.erunda.ru
Вывод: CoolUser:*@ftp.erunda.ru


РЕШЕНИЕ ЗАДАЧ
Задание 2. Из строки   ФИО^Средний балл&Суммарный балл удалить часть ^Средний балл
Пример
Входная строка: ИвановИ.И.^8,9&27
Вывод: ИвановИ.И&27
Дополните программу
var s:....;
      d, k, p: ….;
begin
   readln(...);{вводим строку}
   k:=pos(‘^’,s);{ищем  номер первого символа ^}
   p:=pos(‘&’,s); {ищем  номер первого символа &}
   d:=p-k; {вычисляем длину части ^Средний балл}
   delete(...,k,d);{удаляем из строки часть ^Средний балл}
   writeln(s);
end.

Задание 3. 
Из строки   ФИО^Средний балл&Суммарный балл удалить часть &Суммарный балл
Пример
Входная строка: ИвановИ.И.^8&27
Вывод: ИвановИ.И.^8
 
Задание 4. В строку   ФИО^Средний балл&Суммарный балл после ФИО добавить !школа. Название школы вводится с клавиатуры.
Пример
Входная строка: ИвановИ.И.^8,9&27
Вывод: ИвановИ.И.!БорисовскаяНШ^8,9&27

Задание 5. FTP-Connection. Пользователю, зарегистрированному на FTP-сервере, для получения доступа к файлам на нем нужно набрать в FTP-браузере команду вида: ftp://логин:пароль@адрес_сервера. Написать программу, которая из введенной строки выделяет логин, пароль и адрес FTP-сервера и печатает эту информацию.
Пример
Входная строка: ftp://CoolUser:parol@ftp.erunda.ru
Вывод:
Адрес сервера: ftp.erunda.ru
Логин: CoolUser
Пароль: parol

ИГРАЕМ