Xóa số giống nhau

Uses crt;
Var A,S: Array[0..100] Of integer;
  j,n,i,t: integer;
Begin
  clrscr;
  randomize;
  write('nhap n=');
  readln(n);
  For i:=1 To n Do
    Begin
      A[i] := random(30)-random(30);
      write(A[i],'|');
    End;
  writeln;
  For i:=1 To n-1 Do
    For j:=i+1 To n Do
      If A[i]>A[j] Then
        Begin
          t := A[i];
          A[i] := A[j];
          A[j] := t
        End;
  For i:=1 To n Do
    For j:=i+1 To n Do
      If A[i]=A[j] Then
      begin
      dec(n);
        For t:=j To n Do
            A[t] := A[t+1];
          End;
  For i:=1 To n Do
    write(A[i],'|');
  readln
End.