Задача на тему Текстовые файлы", текст задачи и решение внутри Опции

[neZvezda]

Дан файл, содержащий текст на русском языке. В предложениях некоторые из слов записаны подряд несколько раз (предложение заканчивается точкой или восклицательным знаком). Получить в новом файле отредактированный текст, в котором удалены повторные выражение слов в предложение

Вот нашла в инете похожую задачку, но в Паскале не идет. Объясните. Файл
F создаю. Непонятно, что такое ***********

var f:text;
    s:string;
    i,j,k:integer;
    m:set of char;
begin write('***************************************************');
      assign(f,'F11.txt');
      reset(f);
      m:=[' '..'п'];
      writeln('Такие слова :');
      while not(eof(f)) do
        begin readln(f,s);
              for i:=1 to length(s) do
                begin k:=0;
                      for j:=1 to length(s) do
                              if (s[i] in m)and(s[j] in m)and(s[i]=s[j])
                                 then k:=k+1;
                    if k=1  then write(s[i],' ');
                end;
          end;
    close(f);
end.

[volvo]

А вот грубить не надо. Я это тоже умею... Во первых, какого ты влез в чужую тему? Умный больно? Тогда предложи свой вариант!

Во вторых, для тех кто на танке, повторяю задание:

В предложениях некоторые из слов записаны подряд несколько раз (предложение заканчивается точкой или восклицательным знаком)

Тебе все понятно? Могу расшифровать:

Сегодня шёл дождь. дождь был сильным

Это 2 (два!!!) предложения. Я понятно выражаюсь, или еще что-то неясно?

[AJTopper]

А вот грубить не надо. Я это тоже умею... Во первых, какого ты влез в чужую тему? Умный больно? Тогда предложи свой вариант! 

Во вторых, для тех кто на танке, повторяю задание: Тебе все понятно? Могу расшифровать:
Это 2 (два!!!) предложения. Я понятно выражаюсь, или еще что-то неясно?

Да расслабься ты :no:

Закрой глаза на 2 минуты .... вытяни руки ...

Напрягаться очень вредно ;)