Вобязательно нужно использовать процедуру или функцию – для выполнения основной работы. если результатом работы подпрограммы является значение простого типа или строка, то разработайте функцию, иначе – процедуру. при этом данные в процедуру или функцию должны передаваться исключительно через параметры. результаты работы процедуры должны передаваться в главную программу также только через параметры. результаты работы функции – через имя функции и параметры. подпрограмма не должна использовать переменные ( это требование - в учебных целях ). подпрограмма не должна быть откликом на событие ( button1click, formdblclick и т п. ), т е она должна быть полностью самодельной – от заголовка (procedure имя …) до конца ( end; ). вот мой вариант: программа содержит процедуру подбора пароля. известна длина пароля ( < 6 ) и пароль ( латинский ) . делает простой перебор букв входящих в слово – до тех пор, пока слово не совпадет с паролем. в качестве результата выдает количество проверенных вариантов. программа должны быть написана в delphi 80 если программа будет работать правильно.
И это не Delphi, a Lazarus. Но надеюсь, содержимое файла основного модуля
unit_psw.pas сильно отличаться не будет.
У кого Lazarus, файл *.ods переименуйте в *.zip
и распакуйте архив там весь проект.