Подсчитать количество и порядковые номера элементов ЛОС, значения информационных полей которых

procedure anlos;
var i,j,k:integer; 
   begin
    q:=p; k:=0; i:=1; j:=0;
    while q^.next<>nil do 
      begin
        if [B]<заданное условие>[/B]
        then
        begin
         inc(k); inc(j); num[j]:=i;
        end;
        q:=q^.next; inc(i);
      end;
      writeln('всего ',k,' элементов');
      writeln('порядковые номера элементов');
      for i:=1 to j do write( num[i],' ');
   end;

program loskestpyatennet; //наименование программы
 
const l=100;
 
type s=^el;
 el=record
 inf:integer;
 next:s;
end;
 
var p,q:s;r: s; 
n:integer;
num: array [1..l] of integer;
 
procedure rsozdlosn (n:integer); {создание ЛОС}
 begin
  if n>0 then
  begin
   new(r);
   r^.inf:=random(7);
   r^.next:=nil;
   q^.next:=r;
   q:=r;
   rsozdlosn (n-1);
  end;
 end;
 
 
procedure rprlosn; {вывод ЛОС}
 begin
  if q<>nil then
   begin
   write(q^.inf,' ');
   q:=q^.next;
   rprlosn;
   end;
 end;
 
procedure udal (i:integer); {удаление после  i - го элемента}
var j:integer;
 begin
  q:=p;
  for j:=1 to i do q:=q^.next; 
  r:=q^.next;
  q^.next:=r^.next;
  dispose(r);
 end;
 
procedure LOST; {Подсчитать количество и порядковые номера элементов ЛОС, значе-ния информационных полей которых равны значению информационного поля предыдущего элемента}
var i,j,k:integer; 
 begin
 q:=p; k:=0; i:=1; j:=0;
 while q^.next<>nil do 
  begin
  if q^.inf=[B]q^.next^.inf[/B] then
   begin
   inc(k); inc(j); num[j]:=i;
   end;
  q:=q^.next; inc(i);
  end;
  writeln('всего ',k,' элементов');
  writeln('порядковые номера элементов');
 for i:=1 to j do write( num[i],' ');
 
 for k:=j downto 1 do udal(num[k]-1); 
end;
 
procedure upnulos; {сортировка лос}
var c:integer; 
 begin
  q:=p^.next; 
  while q^.next<>nil do begin
   r:=q;
   repeat
   r:=r^.next;
  if r^.inf<q^.inf then
    begin
    c:=r^.inf; r^.inf:=q^.inf; q^.inf:=c;
    end;
   until r^.next=nil;
  q:=q^.next;
  end;
 end;
 
 
 
begin
randomize;
write('n=');
readln(n);
new(p);
q:=p;
rsozdlosn(n);
 
q:=p^.next;
rprlosn;
 
writeln;
LOST;
writeln;
writeln('Удалим элементы, совпадающие с предыдущим');
writeln;
q:=p^.next;
rprlosn;
 
writeln;
upnulos;
writeln;
writeln('Упорядочим оставшиеся');
writeln;
q:=p^.next;
rprlosn;
 
end.