Распарсить строку подключения к FTP - PascalABC.NET

Формулировка задачи:

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

program qwerty;
uses crt;
var
s,s1,s2,s3,s4:string;
i,l,p,a:integer;
begin
writeln('Введите команду для получения доступа к файлам');
s:='ftp://TukTuk:removed@mail.ru';
l:=pos('//',s);
p:=pos('@',s);
s4:=copy(s,l+2,p-7);
a:=pos(':',s);
s1:=copy(s,l+2,a+2);
s2:=copy(s,a+10,p-14);
s3:=copy(s,p+1,13);
                                        writeln('Входная строка:     ',s);
                                        writeln('Вывод:');
                                        writeln('Адрес сервера:      ',s3);
                                        writeln('Логин:              ',s1);
                                        writeln('Пароль:             ',s2);
end.

Исправьте, потому что я знаю, что то сделал не так.

Решение задачи: «Распарсить строку подключения к FTP»

Листинг программы

program qwerty;
var
  s : string;
begin
  writeln('Введите команду для получения доступа к файлам');
  s := 'ftp://TukTuk:3814ABC@ftp.games.ru';
  var  u: System.Uri := new System.Uri(s);
  writeln('Входная строка:     ', s);
  writeln('Вывод:');
  writeln('Адрес сервера:      ', u.Host);
  writeln('Логин:              ', u.UserInfo.Split(':')[0]);
  writeln('Пароль:             ', u.UserInfo.Split(':')[1]);
end.

Объяснение кода листинга программы

Ввод строки подключения к FTP
Разбивка строки на отдельные элементы с помощью System.Uri
Вывод входной строки
Вывод адреса сервера
Вывод логина
Вывод пароля