Массив из не повторяющихся чисел

пояснения

var

    a: array[1..1000] of integer; //сжимаемый массив

    s: array[1..1000] of integer; //сжатый массив

    n,i,k,l: integer;

    flag: boolean;

begin

    read (n);

    for i := 1 to n do

    read (a[i]);

         for i := 1 to n do

        s[i]:=-1;

    k := 1;

    for i := 1 to n do begin

        flag := true;

        for l := 1 to k do

            if s[l] = a[i] then

                flag := false;

        if flag = true then begin

            s[k] := a[i];

k := k+1

        end;

    end;

    for i := 1 to k-1 do

        write (s[i]:3);

readln

end.

Описание переменных

начало программы

чтение числа элементов в массиве

чтение массива

создаем массив со значениями -1

для i от 1 до n делай

для l от 1  k делай

если в новом массиве s[l] значения равны значениям в старом  a[i] то метка ложна

                flag := false;

если метка истина, то начинай:

новому массиву присвой значение из старого

печать нового массива