Вот программа.Помогите написать процедуру,которая распечатывает строку с наибольшем кол-вом неповторяющихся слов...
uses wincrt;
var f1,f2:text; {текстовые файлы}
i,kol_str,n,t,w:integer;
c,a,b:string;
procedure wwod;
begin
assign(f1,'t1.dat'); {Связывание переменной с именем}
rewrite(f1); {Открытие для записи}
writeln('Введите число вводимых строк-> ');
readln(kol_str);
for i:=1 to kol_str do {Цикл для кол-ва строк}
begin
writeln('Введите ',i,' строку исходного текста-> ');
readln(a);{чтение введенной строки}
writeln(f1,a);{Запись строки в файл F1}
end;
close(f1);
end;

Procedure prosm; {Процедура просмотра файлов}
begin
Writeln('Введите имя просматриваемого файла ->');
writeln('(t1.dat,t2.dat или t3.dat): ');
Readln©; {Считывание введенного имени файла}
assign(f1,c); {связывание переменной с именем}
reset(f1); {Открытие для просмотра}
while not eof(f1) do {Цикл пока не конец файла}
begin
a:='';
readln(f1,a); {Считывание строки}
writeln(a); {Печать строки}
end;
close(f1); {Закрытие файла}
end;

procedure delp; {Процедура удаления лишних пробелов}
begin
assign(f1,'t1.dat');
reset(f1);
assign(f2,'t2.dat');
rewrite(f2);
while not eof(f1)do {пока не конец файла}
begin
a:='';{обнуление}
readln(f1,a);
b:='';{обнуление}
for i:=1 to length(a)do {цикл посимвольной проверки строки}
begin
b:=b+a[i];{Занос символa в b}
if a[i]=' ' then {Если a[i] ровно пробел}
begin
while a[i]=' 'do {Пока a[i] = пробел}
inc(i);{Считывание следующего символа}
dec(i);{Удаление пробела}
end;
end;
writeln(f2,b);{Печать в файл f2 строку без лишних пробелов}
end;
close(f1);close(f2);
end;

begin
w:=0;
while w<>4 do begin
Writeln(' МЕНЮ ПРОГРАММЫ ');
Writeln('1-ввод исходного файла');
writeln('2-просмотр файла');
writeln('3-запись наибольшей строки в t3.dat');
writeln('4-Удаление лишних пробелов');
writeln('5-Выход ');
readln(w);
case w of
1:wwod;
2:prosm;
4:delp;
end;
end;
end.

Помогите с процедурой вывода наибольшей строки содержащее наибольшее кол-вом неповторяющихся слов...
Срочно нужно