Witam! Mam problem z zadaniem. Otóż w kilku ciągach x i y o zdefiniowanej wczesniej dlugosci muszę utworzyć zbiór Wx, w którym będą kolejno, ulozone liczby bez powtorzen wystepujacych w ciagu poczatkowym. Czyli dla x={6,5,5,7,7,7,5,5,6} Wx bedzie rowne Wx={6,5,7}. Napisalem następujący program, który nie dziala. Oto on:

Program ciag;
var x,y:array[1..100,1..100] of byte;
a:array[1..2,1..13] of longint;
Wy,Wx:array[1..100,1..100] of integer;
k,n,koncowy1,koncowy2:integer;
liczba_testow:byte;
i,j:longint;
wstaw:boolean;
begin
readln(liczba_testow);
for i:=1 to liczba_testow do
  begin
  read(a[1,i]);
  read(a[2,i]);
  k:=1;
  for j:=1 to a[1,i] do read(x[j,i]);
  for j:=1 to a[1,i] do
    begin
    if x[j,i]=Wx[k,i] then wstaw:=false else wstaw:=true;
    if wstaw=true then
      begin
      x[j,i]:=Wx[k,i];
      inc(k);
      end;
    end;
  n:=1;
  for j:=1 to a[2,i] do read(y[j,i]);
  for j:=2 to a[2,i] do
    begin
    if Wy[n,i] = y[j,i] then wstaw:=false else wstaw:=true;
    if wstaw=true then
      begin
      y[j,i]:=y[n,i];
      inc(n);
      end;
    end;
  end;
end.

Mógłby go ktoś poprawić?