program cw4_15; uses Crt; CONST TajneHaslo = '6a6b6c'; NazwaPliku = 'WOW.HKT'; var PodaneHaslo : STRING; F : Text; Wiersz : STRING; FUNCTION PodajHaslo : STRING; { Funkcja czyta haslo bez wyswietlania go na ekranie. } var Haslo : STRING; Znak : Char; begin Haslo := ''; repeat Znak := ReadKey; IF (Znak <> #13) THEN begin WRITE ('*'); Haslo := Haslo + Znak; END; UNTIL Znak = #13; PodajHaslo := Haslo; END; {----------------------------------- PodajHaslo -} begin ClrScr; WRITE ('Podaj haslo: '); PodaneHaslo := PodajHaslo; Writeln; IF PodaneHaslo = TajneHaslo THEN begin ClrScr; Assign (F, NazwaPliku); RESET (F); WHILE NOT EOF(F) DO begin Readln (F, Wiersz); Writeln (Wiersz) END; CLOSE (F); Readln; Writeln ('Odpowiedz'); ClrScr; Assign (F, NazwaPliku); Rewrite (F); repeat Readln (Wiersz); IF Wiersz<>'' then Writeln (F, Wiersz); UNTIL Wiersz =''; CLOSE (F); Writeln('Poprawnie'); END ELSE Writeln ('Nie jestes z grupy!!'); Readln; END.