PROCEDURE SortirajBrojeve(VAR br:brojevi);
VAR
  i, j:CARDINAL;
  temp:INTEGER;
BEGIN
  FOR i:=2 TO br.brojel DO
    temp:= br.niz[i];
    j:=i-1;
    WHILE (j>0) & (temp < br.niz[j]) DO
      br.niz[j+1]:= br.niz[j];
      DEC(j);
    END;
    br.niz[j+1]:= temp;
  END;
  WriteString("Brojevi u nizu su sortirani!");
  WriteLn;
END SortirajBrojeve;