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.