Miscellany

program kontakty;

uses
  procedury;

var
  wybrane: string;

begin
  while not (wybrane = '3') do
  begin
    Writeln('1) Dodaj kontakt');
    Writeln('2) Przegladaj kontakty');
    Writeln('3) Koniec');

    Readln(wybrane);

    if wybrane = '1' then DodajKontakt;
    if wybrane = '2' then Przegladaj;

    Writeln('');
    Writeln('');
  end;

end.