Дан текстовый файл со строками. Найти повторяющиеся слова и заменить

[bifshtex]

Данила, Infstudent помогите пожалуйста...
не знаю даже как к ней приступить((

Дан текстовый файл со строками. Найти повторяющиеся слова, после чего заменить эти повторяющиеся слова словом 'povtor', начиная со второго. И записать в типизованный файл количество повторяющихся слов.

[InfStudent]

А что именно не получается?

[bifshtex]

как бы ты приступил к этой задаче?
как найти повторяющиеся слова?..

[InfStudent]

Ну смотри как бы я приступил к этой задаче мы считываем строки в массив, а дальше сравниваем его элементы между собой, если они равны, то увеличить счетчик. Чуть позже допишу алгоритм доконца    
 
  

[InfStudent]

Далее организуем сравнение следующим  образом: во внешнем цикле мы берем первый элемент массива, во втором внутреннем пробегаем все остальные, проверяя равенство строк и в случае совпадения увеличивая счетчик. Массив строк разумеется используется, который опишем так Test:array of string;      

[InfStudent]

Вот тебе код, который считывает строки из файла
program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
f:textfile;
i,j:integer;
c:char;
text:array of string;
begin
i:=1;
j:=0;
c:=' ';
AssignFile(f,'Test.txt');
Rewrite(f);
while c<>'q' do
begin
writeln('vvod?');
readln(c);
writeln(f,random(20));
end;
close(f);
reset(f);
while not eof(f) do
begin
setlength(text,i);
readln(f,text[j]);
writeln(text[j]);
inc(i);
inc(j);
end;
readln;
end.
  Я там записываю строки генератором случайных чисел

[bifshtex]

блин, опять этот Делфи))))
спасиб за помощь, буду разбираться))

[InfStudent]

Не опять а снова) Честно говоря Delphi 7  давно халявно валяется в инете))Замени sysutils на crt