program formularz;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  do_sprawdzenia : boolean;
  i : integer; // zmienna iteracyjna i wyboru
  Pola : array [1..11,1..2] of string; // pola formularza
  captcha, wylosowana : integer; // wpisany, wylosowany kod
  czyRejestrowac : char; // nazwa ;)

PROCEDURE czysc_ekran;
begin
  for i:= 1 to 50 do writeln (''); // czyszczenie ekranu
end;

PROCEDURE przygotuj_formularz;
begin
  do_sprawdzenia := true;
  randomize;
  wylosowana := random (8999);
  wylosowana := wylosowana + 1000; // Wylosowana jest wartoscia z przedzialu {1000, 1001... 9998, 9999}

  Pola [1] [1] := 'Imie: ';
  Pola [2] [1] := 'Nazwa uzytkownika: ';
  Pola [3] [1] := 'Haslo: ';
  Pola [4] [1] := 'Potwierdz Haslo: ';
  Pola [5] [1] := 'E-mail: ';
  Pola [6] [1] := 'Potwierdz e-mail: ';
  Pola [7] [1] := 'Wiek: ';
  Pola [8] [1] := 'Numer Skype: ';
  Pola [9] [1] := 'Numer GG: ';
  Pola [10] [1] := 'Przepisz kod wyswietlony obok: ';
  Pola [11] [1] := 'Czy akceptujesz regulamin? t/n: ';
end;

PROCEDURE wypelnij_formularz;
begin
czysc_ekran;
writeln ('Wypelnij wszystkie pola');

for i := 1 to 11 do
begin
  write (Pola [i] [1]);
  if i = 10 then begin  // jezeli pole dla captchy
    write (' (', wylosowana, ') ');
    readln (captcha)
  end
  else
  begin
    readln (Pola [i] [2]);
  end; // else
  end; // if
end;

PROCEDURE pokaz_wypelniony_formularz;
begin

  if ( do_sprawdzenia = true ) then
  begin

  writeln ('Ktora wartosc chcesz odczytac? [1-9]');
  readln (i);

  if ( i < 1 ) or ( i > 9 ) then writeln ('Zla wartosc!')
  else
    writeln (Pola [i] [1], Pola [i] [2]);

  end else
  begin
    for i := 1 to 9 do begin // Omijamy captche i regulamin
      if ( i = 4 ) or ( i = 6 ) then // omijamy 'potwierdz e-mail' lub 'potwierdz haslo'
    else
      writeln (Pola [i] [1], Pola [i] [2]);
    end; // for
  end; // else
end;

PROCEDURE sprawdz_formularz;
begin
  if
( captcha = wylosowana ) and
( Pola [11] [2] = 't' )  and
( Pola [3] [2] = Pola [4] [2] ) and
( Pola [5] [2] = Pola [6] [2] ) then
  begin
      czysc_ekran;
      writeln ('Dziekujemy za rejestracje na forum. Mozesz sie zalogowac.');
      writeln ('Podane przez ciebie dane to:');
      pokaz_wypelniony_formularz;
  end
  else
  begin
    writeln(''); writeln(''); // 2 puste linie

    if captcha <> wylosowana then writeln ('Podales niewlasciwy kod captcha');

    if Pola [11] [2] <> 't' then writeln ('Nie zaakceptowales regulaminu!');

    if Pola [3] [2] <> Pola [4] [2] then writeln ('Podales bledne haslo!');

    if Pola [5] [2] <> Pola [6] [2] then writeln ('Podales bledny adres e-mail')
  end;


end;

BEGIN // program
  przygotuj_formularz;

  writeln ('Witaj na warsztat.gd. Aby korzystac z forum musisz sie zarejestrowac');
  writeln ('Czy chcesz sie zarejestrowac na forum? Wpisz "y" i potwierdz aby sie zarejestrowac.');

  readln (czyRejestrowac);
  if czyRejestrowac = 'y' then
  begin

    wypelnij_formularz;
    sprawdz_formularz; // wykonuje takze "pokaz_wypelniony_formularz"

  writeln (''); // pusta linia
  writeln ('Nacisnij dowolny klawisz, aby wyjsc');
  readln; // zatrzymanie programu

  end; // glowny if
END. // program