В задании обязательно нужно использовать процедуру или функцию – для выполнения основной работы. Если результатом работы подпрограммы является значение простого типа или строка, то разработайте функцию, иначе – процедуру. При этом данные в процедуру или функцию должны передаваться исключительно через параметры. Результаты работы процедуры должны передаваться в главную программу также только через параметры. Результаты работы функции – через имя функции и параметры. Подпрограмма не должна использовать глобальные переменные ( это требование - в учебных целях ). Подпрограмма не должна быть откликом на событие ( Button1Click, FormDblClick и т п. ), т е она должна быть полностью самодельной – от заголовка (Procedure ИМЯ …) до конца ( end; ).

вот мой вариант:

Программа содержит процедуру подбора пароля. Известна длина
пароля ( < 6 ) и пароль ( латинский ) . Делает простой перебор
букв входящих в слово – до тех пор, пока слово не совпадет с
паролем. В качестве результата выдает количество проверенных
вариантов.


Программа должны быть написана в Delphi даю 80 балов если программа будет работать правильно.

И всё же странно почему в теле цикла программа "не хочет" работать с метками. Ни текст не меняется ни цвет. А вот вывод в консоль работает. Хотя бы видно, что программа работает, а не "висит".

Просто writeln(k);

Writeln(PSW); Можно видеть в каком порядке перебираются комбинации.