Решить задачу на языке паскаль

[Alisa15]

Здравствуйте,можете пожалуйста написать код на языке паскаля,нужно до завтра.

"Поле чудес". Слово задано в виде шаблона, т. е. известна его длина и некоторые
буквы. При этом тех букв, которые уже открыты, в слове больше нет. Разработать
программу, подбирающую для заданного шаблона соответствующие слова. Основой для
подбора может база данных слов в виде массива или файла.

[Valick]

Сообщение от Alisa15

написать код на языке паскаля,нужно до завтра

приходите недели две назад

[macomics]

program dvoika;

uses SysUtils;

type charset = set of Char;

var
  move: LongInt = 0;
  word: String = '';
  cset: charset = [];

function SelectWord(szFileName: String; var szWord: String; var chSet: charset): Boolean;
var
   F: TextFile;
   C: LongInt;
   W: String;
   R: Boolean;
begin
   C := 0;
   R := false;
   Assign(F, szFileName);
   if not FileExists(szFileName) then exit;
   Reset(F);
   while not eof(F) do begin
      ReadLn(F, W);
      inc(C);
   end;
   Close(F);
   C := Random(C) + 1;
   Reset(F);
   repeat
      ReadLn(F, W);
      dec(C);
   until C <= 0;
   Close(F);
   R := true;
   szWord := W;
   for C := 1 to Length(W) do
   Include(chSet, W[C]);
   SelectWord := R;
end;

procedure MovePatternWord(var csHidden: charset; szWord: String);
var
   i: LongInt;
   p: String;
   c: Char;
begin
   SetLength(p, Length(szWord));
   for i := 1 to Length(szWord) do
      if szWord[i] in csHidden then
         p[i] := '_' else p[i] := szWord[i];
   WriteLn('Word: ', p, ' Type char: ');
   ReadLn(c);
   Exclude(csHidden, c);
end;

BEGIN
   Randomize;
   if SelectWord('words.txt', word, cset) then repeat
      inc(move);
      MovePatternWord(cset, word);
   until cset = [];
   WriteLn('Happy end! You did it in ', move, ' tries');
END.

words.txt

abracadabra
apple
banana
cucumber
orange
pineapple
tomato

[Alisa15]

macomics, спасибо большое