Курсовая по Паскалю

[maksat_a]

Пожалуйста помогите решить задачу!!!!!!!!!!!!! Нужно с пошаговым обьяснением!!!!!!!!!

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

[DM_bite]

 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.

Написал на примере буквы D(d).Вначале пробегаем строку от начал до конца, проверяем на разделитель( в данном случае - пробел ) и если он встречается увеличиваем k1.Далее проверяем равен ли символ s[i] D(d) и если равен выводим k(текущий символ, сам искомый символ и номер слова( строки ). Все...