[4u4undrik]

помогите пожалуйста с решение задачи:
Дан однонаправленный список L из элементов целого типа. Из каждой группы подряд идущих равных элементов оставить в списке только один.
нашла программу для удаления всех повторяющихся элементов,немного изменила,но не работает

Код:

program Project2;
 {$APPTYPE CONSOLE}
 uses
   SysUtils;
 var a:array[1..10] of integer;
     n,i,j,k:integer;
     begin
   { TODO -oUser -cConsole Main : Insert code here }
 randomize;
 write('n=');readln(n);
 writeln('ishodnui massiv:');
 for i:=1 to n do
  begin
   a[i]:=random(10);
   write(a[i],' ');
  end;
 writeln;
 i:=1;
 while i<=n do
 begin
 j:=i+1;
 while j<=n do
 begin
 if a[j]=a[j+1] then
 begin
 for k:=j to n-1 do
 a[k]:=a[k+1];
 n:=n-1;
 end
 else j:=j+1;
 end;
 i:=i+1;
 end;
 writeln('novui massiv:');
 for i:=1 to n do
 write(a[i],' ');
 readln
 end.