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.