Игра «Поле чудес». Задать слово. Последовательно вводить буквы и после ввода выдавать сообщение, есть ли такая буква в слове и на каком месте в слове она стоит — Pascal(Паскаль)

uses crt;
var st:string;
p : array[1..256]of boolean;
i, k : integer;
ch :char;
 
begin
 clrscr;
 st := 'coding';
 for i:=1 to length(st) do p[i]:=false;
 k := length(st);
 repeat
    for i:=1 to length(st) do
    begin
        write('[');
        if p[i] then write(st[i]) else write(' ');
        write(']');
    end;
    writeln;
    write('Введите букву-> ');
    readln(ch);
    if pos(ch,st)>0 then
    begin
        writeln('Буква ',ch,' есть в слове!');
        for i := 1 to length(st) do if (st[i]=ch) and not p[i] then
        begin
            p[i] := true;
            dec(k);
        end;
    end else writeln('Такой буквы нет в слове!');
 until k=0;
 writeln('Вы угадали слово!');
 readln;
end.