Delphi заготовки

{
Задание : Дана строка текста.Вывести на экран слова ,в которых буква "а"
входит не менее двух раз .
}
uses crt;
const MaxCountWord=1000; { максимальное количество слов в тексте }
type
  Tword=record
   word:string;
   col:integer;
 end;

 TDocumcent=record;
    WordList: array[1..MaxCountWord] of Tword;{список слов}
    WordListCount:integer; {список слов }
 end;
var
    DocBody:TDocumcent; {тело документа }
    s,text:string; {строка }
    ai,i,x,lnstr:integer; {длина слова}


 Procedure AddWord(word:string;var Doc:TDocumcent);
 var x:integer;
 begin
   for x:=1 to Doc.WordListCount do
   if Doc.wordlist[x].word=word then begin Doc.WordList[x].col:=Doc.WordList[x].col+1; exit; end;
   Doc.WordListCount:=Doc.WordListCount+1;
   Doc.W ... Читать дальше »