Дан массив из n элементов.в массив в записать только не повторяющиеся элементы

Const  nx = 50; var  a,b,d: array[1..nx]of integer;   i,n,j,m,z,k,m1: integer; begin writeln('введи количество элементов массива');   read(n);   for i: = 1 to n do begin a[i]: = random(20)-5; write(a[i]: 3); end; writeln; for i: = 1 to n do begin z: = a[i]; k: =0; for j: = i+1 to n do  if a[i] = a[j] then k: = k +1; for j: = 1 to m do if a[i] = b[j] then k: = k +1; for j: = 1 to m1 do if a[i] = d[j] then k: = k +1; if k = 0 then begin  m: = m + 1; b[m] : = z; end else  begin  m1: = m1 + 1; d[m1] : = z; end; end; writeln('b'); for i: = 1 to m do  write(b[i]: 3); end.

Введите смещение: 1 делу время - потехе час | еёмф гсёна - рпуёцё шбт с новым годом | т опгьн дпепн первое сентября | рёсгпё тёоуавса исходный код на python3: #! /usr/bin/env python3 # -*- coding: utf-8 -*- tl2i = dict(zip("абвгдеёжзийклмнопрстуфхцчшщъыьэюя",range( i2tl = dict(zip(range(34),"абвгдеёжзийклмнопрстуфхцчшщъыьэюя")) sl2i = dict(zip("абвгдеёжзийклмнопрстуфхцчшщъыьэюя",range( i2sl = dict(zip(range(34),"абвгдеёжзийклмнопрстуфхцчшщъыьэюя")) phrases = ('делу время - потехе час', 'с новым годом', 'первое сентября') key = int(input("введите смещение: ")) for phrase in phrases:       ciphered = ''       for c in phrase:               if not c.isalpha():                       ciphered += c               if c.islower():                       ciphered += i2sl[ (sl2i[c] + key) % 33 ]               if c.isupper():                       ciphered += i2tl[ (tl2i[c] + key) % 33 ]       print("{} | {}".format(phrase, ciphered))