Создать ЛДС из n элементов, информационные поля которых являют-ся случайными целыми числами из некоторого диапазона.

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<span class="sy2">^.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.

const
  l = 100;
 
type
  s = ^el;
  el = record
    inf: integer;
    next: s;
  end;
 
var
  p, q, 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 = q^.next^.inf 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.

  writeln('Удалим элементы у которых информационное поле меньше значения информационного поля предыдущего элемента');

{Подсчитать количество и порядковые номера элементов ЛОС, 
значения информационных полей которых меньше значения информационного поля предыдущего элемента}
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 > q^.next^.inf 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);