не получается решить задачу

[pashka_dos]

Привет, помогите, пожалуйста, решить задачку.
Задача: Программа выбирает слово и рисует на экране столько знаков вопроса сколько букв в слове в каждый ход играющий указывает 1 букву. Если названа буква, входящая в состав слова, она подставляетсявместо соответствующего знака вопроса.

вот код, но он работает не правильно - не выходит из цикла и если в слове есть одинаковые буквы ("паскаль" - 2 буквы "а") то рисует только одну.
может кто найдёт ошибку?

program igra_v_slovo;
uses crt;
var s,s1:string;
    a:char;
    mode,len,i:integer;
begin
clrscr;
randomize;
writeln('Программа "Игра в Слова"');writeln;
mode:=random(2);
case mode of
     0: s:='паскаль';
     1: s:='строка';
end;

len:=length(s);

for i:=1 to len do s1[i]:='?';


repeat
      begin
           for i:=1 to len do write(s1[i]); writeln;

           write('Введите символ...'); readln(a);

           for i:=1 to len do
               if s[i] = a then s1[i]:=a
                           else
                               begin
                                    writeln('Вы не угадали!'); break;
                               end;
      end;

until s=s1;

readln;
end.

[ByAlex]

Во-первых, у вас есть ошибка - после получения длины строки s, вы не установили длину строки s1, нужно так - SetLength(s1,len);
Во-вторых, локализацию выбери английскую. Он у тебя русские символы не понимает.
Вот рабочий вариант -

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var
  s,s1:string;
  a:char;
  check:boolean;
  mode,len,i:integer;
begin
  s1:='';
  check:=false;
  randomize;
  writeln('the game in words!!!');
  writeln;
  mode:=random(2);
  case mode of
    0: s:='programmers';
    1: s:='hackers';
  end;
  len:=length(s);
  SetLength(s1,len);
  for i:=1 to len do
    s1[i]:='?';
  repeat
    begin
      for i:=1 to len do
        write(s1[i]);
      writeln;
      write('Input the symbol - ');
      readln(a);
      for i:=1 to len do
        if s[i] = a then
        begin
          s1[i]:=a;
          check:=True;
        end;
      if check then
        Writeln('Yes!!!')
      else Writeln('No!');
      check:=False;
    end;
  until s=s1;
readln;
end.

[pashka_dos]

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

Во-вторых, локализацию выбери английскую. Он у тебя русские символы не понимает.

простите не понял кто он и какая локализация?

[ByAlex]

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

простите не понял кто он и какая локализация?:co nfused:

Т.е. слова выбирай на английском! Программа не понимает русские символы!

[Mad_Cat]

Паскаль АВС

uses crt;
var
buf,str:string;
i:integer;
c:char;
begin
str:='паскаль';
buf:='';
for i:=1 to length(str) do
buf:=buf+'+';
repeat
clrscr;
writeln(buf);
writeln('Буква?');
readln(c);
for i:=1 to length(str) do
if str[i]=c then buf[i]:=c;
until buf=str;
clrscr;
writeln(buf);
writeln;
end.

[pashka_dos]

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

Т.е. слова выбирай на английском! Программа не понимает русские символы!

разабрался спасибо большое!!!