Это программа которую я написал в Delphi 7.