строки в паскале

[Странница]

проблемма со строками в Паскале((((

вот задание:

Задан текст, состоящий из строк произвольной длины. Строки разделяются одним или несколькими символами, называемыми разделителями. Разделители одинаковы для всего текста. Текст заканчивается комбинацией двух специальных символов, отличных от разделителя.
Выполнить над текстом последовательность действий, указанную в задании.
а) Определить, считая от начала текста, координаты (номер строки и номер символа в строке) символов, которые задаются в исходных данных;
б) сформировать новый текст, состоящий из строк заданного текста, в каждой из которых любой из заданных символов встречается не более одного раза.

вот то что получилось у меня...
var S:string;
k1,k,i:integer;
begin
ReadLn(s);
k:=0;
k1:=1;
for I := 1 to Length(s) do
begin
inc(k);
if s[i]=' ' then inc(k1);
if (S[i]='d') or (S[i]='D') then
begin
WriteLn(k,'____','D','___',k1);
end;
end;
ReadLn;
end.


помогите пожалуйста....