MisterWathu

Ok działa, ale są drobne bugi: (macie kod na górze) jak wpisuje nowe hasło one już się zapisuje ale gdy znowu powraca do menu awaryjnego i chcę wyjść i wpiszę 0 zapisuje się ponownie jako haslo. WYSYŁAM PROGRAM E-MAILEM I DAJĘ NA GMCLAN DO MOJEGO FOLDERU Pamiętajcie że żeby wejść do awaryjnego trzeba będzie kliknąć "/" NIE klikać jak nie będzie nic pisać czekajcie na komendę. P.S Trzeba mieć dysk E jak ktoś nie ma to zmienię kod. (Dzięki dla Makary155 iThreef) :thumbsup:

Ale co trzeba poprawić ?

Begin ClrScr; WriteLn('PROGRAM ON'); Delay(5000); Writeln('LOADING'); WriteLn; Writeln; WriteLn('klikni cos'); kliknicos1 := readkey; IF kliknicos1 = awaryjny THEN Begin repeat TextBackGround(Blue); ClrScr; TextColor(4); WriteLn('Tryb Awaryjny'); Delay(6000); Writeln('W tym trybie mozesz uzyc zaawansowanych fukcji'); Writeln('Jesli nie jestes upowazniony wylacz program !!!'); Writeln('Prosimy upewnic sie ze zapewniony jest ciagla energia'); Writeln('gdyz nagle wylaczenie komputera spowoduje uszkodzenie'); Writeln('danych'); Writeln; TextColor(15); Writeln('1.Zmien haslo'); Writeln('2.'); readln(menuawaryjne); IF (menuawaryjne = 1) THEN ClrScr; Writeln('wpisz nowe haslo '); Readln(nowehaslo); Assign(haslotxt, 'E\Pascal\haslotxt.txt'); Rewrite(haslotxt); Writeln(haslotxt, nowehaslo); close(haslotxt); Until menuawaryjne=00; End; End. Chodzi o to że po zmianie hasła wyskakuje błąd. Proszę o pomoc

ok

Czy jest możliwość żeby coś co zostało wpisane w konsoli zostaje zapisane na dysku (np. jakieś dane) póżniej pokazalo sie na konsoli po wybraniu opcji w menu.