Code in watcom pascal

[jodhy]

This is my code in watcom pascal, its sort of like trubo but ok
so that i need my code to do it make it have a variable in there, that will be added and when the words are all taken up, it opened a new page(the winning screen)
i already got the lossing screen

mistakes:=0;

        while (mistakes<>6) do
                begin
                        poscursor  (22,44);
                        prompt("Enter a Letter: ",letter);


                        if (move="TheDarkKnight") then
                                begin


                                            if (letter="T") or (letter="t") then
                                                begin
                                                        poscursor(12,50);
                                                        writeln(letter);
                                                        poscursor(16,68);
                                                        writeln(letter);

                                                end

                                       else if (letter="H") or (letter="h") then
                                                begin
                                                        poscursor (12,55);
                                                        writeln (letter);
                                                        poscursor(16,63);
                                                        writeln(letter);

                                                end

                                        else if (letter="E") or (letter="e") then
                                                begin
                                                        poscursor(12,60);
                                                        writeln (letter);
                                                end


                                        else if (letter="D") or (letter="d") then
                                                begin
                                                        poscursor (14,48);
                                                        writeln (letter);
                                                end

                                        else if (letter="A") or (letter="a") then
                                                begin
                                                        poscursor (14,53);
                                                        writeln (letter);

                                                end

                                        else if (letter="R") or (letter="r") then
                                                begin
                                                        poscursor (14,58);
                                                        writeln (letter);
                                                end

                                        else if (letter="K") or (letter="k") then
                                                begin
                                                        poscursor (14,63);
                                                        writeln (letter);
                                                        poscursor(16,43);
                                                        writeln(letter);
                                                end

                                        else if (letter="N") or (letter="n") then
                                                        begin
                                                        poscursor(16,48);
                                                        writeln (letter);
                                                end

                                        else if (letter="I") or (letter="i") then
                                                begin
                                                        poscursor (16,53);
                                                        writeln (letter);
                                                end

                                        else if (letter="G") or (letter="g") then
                                                begin
                                                        poscursor (16,58);
                                                        writeln (letter);
                                                end


                                        else

                                                begin
                                                        mistakes:=mistakes+1;
                                                        multmist:=mistakes*5;
                                                        poscursor (18,47+(multmist));
                                                        writeln(letter);