ORACLE8 - "Odczytywanie" - Kashub's Code Barn

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.

Kashub's Code Barn - "Odczytywanie"

podświetlone jako oracle8 (dodał(a) to ja @ 2009-03-31 19:19:32)