PROGRAM tablica;
USES CRT;
CONST
N = 3;
TYPE
PRACOWNIK = RECORD
NAZWISKO: STRING;
PLACA: REAL;
END;
 
VAR
BAZA : Array[1..N] of PRACOWNIK;
{POM: PRACOWNIK;}
p, i : BYTE;
BEGIN
CLRSCR;
WRITELN('BAZA DANYCH');
FOR i := 1 TO N DO
BEGIN
WRITE('Nazwisko: ');READLN(BAZA[i].NAZWISKO);
WRITE('Placa: ');READLN(BAZA[i].PLACA);
END;
TEXTCOLOR(YELLOW);
WRITELN('Sortowanie wstawienie z wartownikiem:');
TEXTCOLOR(WHITE);
 
FOR i:=2 TO N DO
  BEGIN
   BAZA[0] := BAZA[i];
   p := i -1;
  WHILE BAZA[0].NAZWISKO < BAZA[p].NAZWISKO DO
   BEGIN
    BAZA[p+1] := BAZA[p];
    p := p-1;
   END;
   BAZA[p+1] := BAZA[0];
   END;
     WRITELN('Posortowane:');
      FOR i := 1 TO N DO
       WRITELN('Pracownik [',BAZA[i].NAZWISKO,'] zarabia: ', BAZA[i].PLACA:5:2, ' zl');
      WRITELN('Pacnij buttona aby wyjsc...');
      READKEY;
   END.