Przykład prawidłowego pisania programów

  Opis:

  Przedstawiony poniżej kod programu, ma za zadanie wyświetlić imiona żeńskie lub
  męskie - w zależności od ustawionego przełącznika "logPrzelacz".

  Zalety:

    1) Prostsze odnalezienie się w kodzie
        programu, po dłuższej przerwie;

    2) Łatwe odnalezienie ewentualnych błędów;

Wady:

  1) Kłopoty z ponownym zapoznaniem się
      z kodem programu, po  dłuższej
      przerwie;

  2) Trudności w ewentualnym znalezieniu
      błędów;

program imiona;
{
 --== Imiona ==--

 Przykład prawidłowego
 pisania programów.
}

{$APPTYPE CONSOLE}

uses
SysUtils;

//Stałe...
const
logPrzelacz = FALSE;

//Blok główny programu...
begin
Writeln('--== Wyswietl imiona ==--');
Writeln;
Writeln;

//Wyświetl imiona...
if (logPrzelacz = TRUE) then begin
//Męskie...
Writeln('Damian');
Writeln('Darek');
Writeln('Janek');
Writeln('Marek');
Writeln('Mirek');
Writeln('Robert');
end else
begin
//Żeńskie...
Writeln('Anna');
Writeln('Ela');
Writeln('Gabrysia');
Writeln('Jadwiga');
Writeln('Renia');
Writeln('Teresa');
end;

{ Czekaj, aż zostanie
  naciśnięty klawisz ENTER... }
Writeln;
Writeln;
Write('Nacisnij klawisz ENTER...');
Readln;
end.