строки

[DeDoK]

вот вобщем исходник - как не пробую переменная email получается пустая. как поправить? с меня +

[Altera]

Короче дедуля ошибка твоя проста.
Какого у тебя в процедуре Divide есть параметры с такими-же именами, как
и переменные email и pass?

procedure Divide(source : string; email, pass : string);

Я заменил их на e и p и всё заработало.
Можешь так-же сделать

procedure Divide(source : string; var email, pass : string);

Тоже заработает.
Вот, держи исходник: