program zadanie1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

Type tosoba = record
      Imie: string[30];
      Nazwisko: string[50];
      Wiek: byte;
      PESEL: string;
      Email: string;
end;

var
  tab: array of tosoba;
  a,nr:integer;

  Procedure dodaj;
  //var

  begin

  Setlength(tab,length(tab)+1);
      WriteLn('Podaj Imie     :');
        Readln(Tab[length(tab)].Imie);
      WriteLn('Podaj Naziwsko :');
        Readln(Tab[length(tab)].Nazwisko);
      WriteLn('Podaj Wiek     :');
        Readln(Tab[length(tab)].Wiek);
      WriteLn('Podaj PESEL    :');
        Readln(Tab[length(tab)].PESEL);
      WriteLn('Podaj Email    :');
        Readln(Tab[length(tab)].Email);
     Writeln;
     Writeln('ilosc osob w bazie');
     WriteLn(length(tab));
  end;
 Procedure usun(nr:integer; tablica:tosoba);
  var
  i:integer;
  begin
   if Length(tablica)=0 Then Exit;

  Writeln('Podaj element tablicy ktory chcesz usunac:  ');
  ReadLn(i);
  if (i<0) or (i>=length(tablica))
    then EXIT;

  if (i-1)=length(tablica) then
  setlength(Tablica,length(Tablica)-1)
  else
    Tablica[i-1].Imie:='';
    Tablica[i-1].Nazwisko:='';
    Tablica[i-1].Wiek:=0;
    Tablica[i-1].PESEL:='';
    Tablica[i-1].Email:='';
    repeat
     inc(i);
    Tablica[i-2].Imie     :=    Tablica[i-1].Imie;
    Tablica[i-2].Nazwisko :=    Tablica[i-1].Nazwisko;
    Tablica[i-2].Wiek     :=    Tablica[i-1].Wiek;
    Tablica[i-2].PESEL    :=    Tablica[i-1].PESEL;
    Tablica[i-2].Email    :=    Tablica[i-1].Email;

    until Tablica[i].Imie='';
    setlength(Tablica,length(Tablica)-1);
  end;

Procedure wyszukaj;
  var

  i,j:integer;
  numer:string;
   begin
    Writeln('Podaj numer PESEL:  ');
      ReadLn(numer);

  for j:=length(tab) downto 0 do
  Begin
      if numer = Tab[j].PESEL then
        begin
          Writeln (Tab[j].Imie);
          Writeln (Tab[j].Nazwisko);
          Writeln (Tab[j].Wiek);
          Writeln (Tab[j].PESEL);
          Writeln (Tab[j].Email);
        End
    end;

        Writeln('Brak osoby o wskazanym numerze PESEL');

    end;

begin
    Repeat
    Writeln;
    Write( 'Stan:  ');
    Writeln(length(tab));

    Writeln('Co chcesz wykonac:?');
    Write('****************************************************************************');
    Writeln;
    Writeln;
    WriteLn('1. Dodaj element do tablicy');
    WriteLn('2. Usun wybrany element tablicy');
    WriteLn('3. Wyszukaj element wedlug podanego numeru PESEL');
    WriteLn('4. Sortuj rosnaco tablice według elementu Nazwisko');
    WriteLn('5. Wyświetl informacja o ilosci osób pełnoletnich w tablicy:');
    WriteLn('6. Wyjazd ');
    Writeln;
    Writeln;
    Write('****************************************************************************');
    Writeln;
    Writeln;

    readln(a);
    if a =1 then
    dodaj;
    if a=2 then
    usun(nr, tab);
    if a=3 then
    wyszukaj;
    Until a=6;




    //readln;

    end.