значався як слово}
h: = 1; h <= length (s) - 2 dop1: = 0 to length (razd) - 1 dos [h] = '-' then if s [h +1] = razd [p1] then (s, h, 1);: = h +1;;
whilelength (s)> 0 do// якщо кінець рядка, то перехід на наступну
begin
k: = 0;
e: = -1;
{Перевірка рядка на наявність роздільник}
while k <= length (razd) - 1 do (s [j] = razd [k]) then e: = 1;: = k +1
end;
ife> 0 then// якщо перевіряється символ виявився роздільником
begin
// Заносимо слово в масив 'slova'
////////////////////////////////////////// ////////////////////////////////// s [j] = '.' then s1: = copy (s, 1, j) else if s [j] = '!' // S1: = copy (s, 1, j) else if s [j] = '?' then s1: = copy (s, 1, j)// s1: = copy (s, 1, j-1);// 1: = AnsiUpperCase (s1);// переклад всіх букв у слові у верхній регістр//
if (length (s1) = 0) or (s1 = '-') then begin j: = j +1; delete (s, 1,1); end// begin// ( slova, p +1);// [p]: = s1;//: = p +1;// (s, 1, j);//: = 1; end; end; end// j: = j +1;//;//
i: = i +1;//
end;//
////////////////////////////////////////// ////////////////////////////////
{Очищення слів від залишилися роздільників}
For i: = 0 to length (slova) - 1 dok: = 0 to length (razd) - 1 do (razd [k], slova [i])> 0 do delete (slova [i], pos (razd [k], slova [i]), 1);
{Складаємо фрази з отриманих слів}
p: = 0; i: = 0; <= Length (slova) - 2 do: = pos ('.', slova [i]); j = 0 then if pos (' ! ', slova [i]) = 0 then if pos ('? ', slova [i]) = 0 then [i] <>'' then if slova [i +1] <>'' then (frazi, p +1); [p]: = slova [i] + '' + slova [i +1];: = p +1;;: = i +1;;
{Видалення залишилися знаків пунктуації}
fori: = 0 toLength (frazi) - 1 do
begin: = frazi [i];: = length (s); s [j] = '.' then delete (s, j, 1) else if s [j] = '!' delete (s, j, 1) else if s [j] = '?' then delete (s, j, 1); [i]: = s;
end;
{Підрахунок і видалення однакових фраз}
h: = High (frazi);: = 0; <= h do begin: = frazi [i];: = 1; j: = h downtoi + 1 do begin [j] = S then begin (e); k: = j to h - 1 do frazi [k]: = frazi [k + 1]; (h);;;: = length (frazi [i]); ('', frazi [i]) <> p then [i]: = IntToStr (e) + '........' + Sbegin x: = i +1;; (i);; (frazi, h + 1);
{Чистка словника отсловос...
