DU

//napiste program ktorý vygeneruje n čisiel tak aby sa žiadne z nich neopakovalo
program neopakujucesacisla;
{$APPTYPE CONSOLE}
uses SysUtils;
var n,i,pc: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 c[i]:=random(100);
  i:=0;
  while i<>n do
    begin
      inc(i);
      if c[i]>c[i+1] then
        begin
          pc:=c[i];
          c[i]:=c[i+1];
          c[i+1]:=pc;
          i:=0;
        end;
    end;
  for i:=2 to n+1 do write(c[i],' ');
  writeln;
  for i:=2 to n+1 do if c[i]<>c[i+1] then write(c[i],' ')
    else begin
          c[i]:=random(100);
          write(c[i],' ');
         end;
  readln;
end.