Usporiadanie

//Napiste program ktorý usporiada prvky pola od najmenšieho po najväčší
//Napíšte program ktorý usporiada prvky pola od najväčšieho po najmenší
//Napíšte program ktorý z hodnôt prvkov pola vypíše tabulku rozdelenia početnosti
//Napíšte program ktorý z hodnôt prvkov pola vytvorý nové pole a bude obsahovať iba rôzne
program usporiadanie;
{$APPTYPE CONSOLE}
uses SysUtils;
var i,n,j:byte;
    c:array[1..255] of byte;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  write('Kolko cisiel chcete vygenerovat?: ');
  readln(n);
  randomize;
  for i:=1 to n do
    begin
      c[i]:=random(10);
      write(c[i],' ');
    end;
  writeln;
  j:=0;
  for i:=1 to n do
    begin
      inc(j);
      if c[i]=j then
        begin
          write(j,' ');
        end;
      j:=0;
    end;
  readln;
end.