(frazi) - 2 do: = pos ('.', Frazi [i]) +8;: = pos ('.', Frazi [i +1 ]) +8;: = copy (frazi [i], p, length (frazi [i]));: = copy (frazi [i +1], p1, length (frazi [i +1])); ( s> s1) then: = frazi [i]; [i]: = frazi [i +1]; [i +1]: = buf;: = true;;; = false;: = AnsiUpperCase (edit1. Text) ;: = 0; j: = length (frazi) - 1;: = 0; <= j do: = i + (j - i) div 2;: = pos ('.', frazi [k]) + 8;: = copy (frazi [k], p, length (frazi [k]));: = copy (frazi [k], 1, p-9);> s then: = k + 1if obr
s = obr then1. Caption: = 'Словосполучення В«' + s + 'В» зустрічається в тексті' + s1 + 'раз (-а)'
elseLabel1. Caption: = 'Словосполучення не знайдено';
if Edit1. Text ='' then label1. Caption: ='';;
procedure TForm1. Edit1KeyPress (Sender: TObject; var Key: Char); Key = # 13 then Button6Click (Button6);;. br/>
