Сформировать список из N целочисленных случайных элементов (N это другой

uses crt;
type Ptr=^count;
     count=Record
           Key:integer;
           Next : ptr;
          end;
var p,q,first : ptr;
    n,i,a,b,c,k:integer;
begin
writeln(' ');
//создаем исходный список
repeat
write('Размер списка n>1 n=');
readln(n);
until n>1;
writeln('Введите первый элемент от 0 до 99');
new(p);
first:=p;
p^.next:=nil;
repeat
 readln(c);
until c in [0..99];
p^.key:=c;
q:=p;
writeln('Введите остальные числа от 0 до 99');
for i:=2 to n do
 begin
  new(p);
  repeat
  readln(c);
  until c in [0..99];
  p^.key:=c;
  p^.next:=nil;
  q^.next:=p;
  q:=p;
 end;
//выводим его на экран
writeln('Исходный список');
p:=first;
while (p<>nil) do
 begin
  write(p^.key,' ');
  p:=p^.next;
 end;
writeln;
//вводим диапазон чисел
writeln('Введите диапазон чисел a<b');
repeat
readln(a,b);
until a<b;
//удаляем элементы
p:=first;
i:=0;
while p<>nil do
 begin
  k:=p^.key; //смотрим значение
  if(k>=a)and(k<=b) then //если число в диапазоне
   begin
    i:=1;
    if p=first then  //если элемент первый
     begin
      first:=first^.next;
      dispose(p);
      p:=first;
     end
    else //если не первый
     begin
      q^.next:=p^.next;
      dispose(p);
      p:=q^.next;
     end
    end
   else //если не в диапазоне
    begin
     q:=p;
     p:=p^.next
    end
 end;
//выводим полученный список
if first=nil then write('Все элементы удалены')
else if i=0 then write('Нет элементов для удаления')
else
 begin
  writeln('Удаление элементов диапазона [',a,',',b,']');
  p:=first;
  while (p<>nil) do
   begin
    write(p^.key,' ');
    p:=p^.next;
   end;
 end;
end.

//это удобнее делать с двунаправленными списками
uses crt;
type Ptr=^count;
     count=Record
           Key:integer;
           Pred:ptr;
           Next:ptr;
          end;
var p:ptr;//текущий указатель
    q:ptr;//вспоиогательный указатель
    first:ptr;//указатель на первый элемент
    last : ptr; //указатель на последнмй элемент
    n,i:integer; //кол.элементов и счетчик
begin
//создаем исходный список
repeat
write('Размер списка n>1 n=');
readln(n);
until n>1;
first:=nil;
last:=nil;
for i:=1 to n do
 begin
  new(p);
  p^.key:=1+random(100);
  p^.next:=nil;//впереди пусто
  p^.pred:=last;//позади бывший последний элемент
  if first=nil then first:=p //если первый пуст,то он р
  else last^.next:=p;//иначе указатель на следующий за последним р
  last:=p;//р последний указатель
 end;
//выводим его на экран
p:=first;//встаем в голову списка
writeln('Исходный список');
while p<>nil do //пока не пусто
 begin
  write(p^.key:4);//выводим значения
  p:=p^.next; //переходим к следующему
 end;
writeln;
//удаляем элементы по условию
p:=first^.next;//встаем на второй элемент, у первого нет соседа слева
while p<>last do//идем до предпоследнего, у последнего нет соседа справа
 begin
  //если четный, а соседи нечетные, удаляем
  if (p^.key mod 2=0)and(p^.pred^.key mod 2<>0)and(p^.next^.key mod 2<>0)then
   begin
    q:=p^.next;//запомним элемент
    p^.pred^.next:=p^.next;//сдвинем указатель влево
    p^.next^.pred:=p^.pred;
    dispose(p);//освободим память для р
    p:=q;//ег новое значение
   end
  else p:=p^.next;//иначе вперед
 end;
//выводим результат
p:=first;
writeln('Удаление элементов по условию');
while p<>nil do
 begin
  write(p^.key:4);
  p:=p^.next;
 end;
end.