Поиск и выделение

Задача. В строку вводятся фамилия, имя, отчество. Вывести фамилию, первую букву имени.
Пример
Ввод
Иванов Фёдор
Вывод
Иванов Ф.

РЕШЕНИЕ ЗАДАЧ
Задание 2. Вводится адрес электронной почты. Вывести логин.
var ……...:string;
      ……..:integer;
begin
  readln(a);

  p:=...(‘@’,a);{ищем символ @}
  s:=copy(...,1,p-...); {выделяем логин, т. е. часть до @
}
  writeln(s);
end.

Задание 3. Вводится адрес электронной почты. Вывести адрес сервера.
Пример
zubrenok@les.by
var ……...:string;
      ……..:integer;
begin
  readln(a);
  p:=...(‘@’,a);{ищем символ @}
  ds:=.... (a);  {считаем кол-во символов в строке}
  k:=ds-...;  {считаем к-во символов в адресе сервера}
  s:=copy(...,....,k); {выделяем адрес сервера}
  writeln(s);
end.

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

ИГРАЕМ 

ДЗ
параграф 5 (Определение позиции вхождения подстроки, Копирование подстроки)
Задача. Создание шаблона электронного письма. Некая почтовая программа при создании письма использует следующую технологию. Она берет имя получателя и помещает его после приветствия. Затем следует место для текста сообщения, после него — подпись отправителя. Имена получателя и отправителя программа берет из их электронных адресов. Напишите программу, реализующую данное действие.
Входные данные:
электронный адрес адресата;
электронный адрес отправителя.
Выходные данные: шаблон сообщения.
Пример
Входные данные:
Кому: Bilbo@valinor.er
От кого: Gandalf@valinor.er
Текст сообщения:
Поздравляю тебя со стаодиннадцатилетием! Желаю здоровья и долголетия.
Вывод на экран:
Здравствуй, Bilbo!
Поздравляю тебя со стаодиннадцатилетием! Желаю здоровья и долголетия.
С уважением, Gandalf.
Файл ДЗ