Задача на Паскаль

[Julia86]

Здравствуйте!Пишу честно:нужен код программы, потому что Паскаль-темный лес. Сделайте подарок на 8 марта,пожалуйста Заранее спасибо всем

Игра в слова.Программа выбирает слово и рисует на экране столько прочерков, сколько букв в этом слове. Отгадать какое слово задумано.В каждый ход играющий указывает одну букву.Если названа буква, входящая в состав слова, то она подставляется вместо соответствующего прочерка.В противном случае играющий теряет одно очко. На начало момента игры у играющего 15 очков.

[KingOfNothing]

Вот

program Project2;

uses
  SysUtils;
var points, i:integer;
word:string;
selected:set of char;
ch:char;
flag:boolean;
begin
points:=15;
word:='this_is_the_word';
selected:=[];
while (points>0) do
begin
    for i:=1 to length(word) do
      if word[i] in selected then
        write(word[i])
      else
        write('-');
    writeln('');
    writeln('Enter letter');
    readln(ch);
    flag:=false;
    for i:=1 to length(word) do
      if word[i]=ch then flag:=true;

    if flag=false then
      begin
        points:=points-1;
        writeln('Wrong. Your points = ', points);
      end
      else
      begin
        writeln('Correct. Your points = ', points);
        selected:=selected+[ch]
      end;
end;
end.