Сформировать массив из элементов матрицы

Uses crt;
 
var a:set of byte;
    b:array [1..100,1..100] of integer;
    c:array [1..100] of integer;
    i,j,n,x,y:integer;
    
begin
   Write('Размер матрицы: ');readln(n); // вводим размер квадратной матрицы
   randomize;                           // активируем генератор случайных чисел
   a:=[];                               // задаем пустое множество
   Writeln('Матрица: ');
   For i:=1 to n do
      begin
      For j:=1 to n do
        begin
        b[i,j]:=random(16)+2;           // Присваем каждому эл-ту массива рандомное значение от 2..17
        write(b[i,j]:3);                // выводим эл-ты в одну строку
        If not (b[i,j] in a) then            // если эл-т массива не входит в множестов А, то
                             begin
                             a:=a+[b[i,j]];  // добовляем эл-т в множество А
                             inc(y);         // увеличиваем значение Y на 1
                             c[y]:=b[i,j]    // присваем Y-му эл-ту массива "C" , эл-т матрицы "B"
                             end;
        end;
      writeln;  // переводим курсор на след. строку
      end;
      Writeln;  // переводим курсор на след. строку
   write('Одномерный массив: ');
   For i:=1 to y do
   write(c[i],' ');  // Выводим сформированный одномерный массив из не повторяющих чисел
 
end.