Сформировать список из N целочисленных случайных элементов. Удалить из списка все элементы, содержащие делители числа N

[RomaBayn]

Вот сделал исправьте меня где не правильно...
Program ex1;
uses crt;
type Ptr=^count;
count=Record
Key:integer;
Nexttr;
end;
var p,q,first,ltr;
n,i,j,k:integer;
begin
randomize;
//создаем исходный список
repeat
write('Размер списка n>1 n=');
readln(n);
until n>1;
new(p);
first:=p;
p^.next:=nil;
p^.key:=0+random(99);
q:=p;
for i:=2 to n do
begin
new(p);
p^.key:=1+random(5);
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;
///вставить после каждого четного элемента,звено содержащее количество звеньев с нечетными элементами идущими перед ними
p:=first;
while p<>nil do
begin
k:=p^.key; //смотрим значение
if((n mod 2)<>0) then //если не четное
begin
for j:=1 to k do //ставляем
begin
new(l);
q:= p^.next;
p^.next:=l;
l^.next:=q;
l^.key:=0;
p:=p^.next;
end;
end
else p:=p^.next; //если не четное дальше




/// вывод списка
p:=first; while p<>nil do begin
p:=p^.next;
end;
end.

[RomaBayn]

Как дальше доделать?

program ex1;
uses crt;
type Ptr = ^count;
  count = record
    Key: integer;
    Next: ptr;
  end;
var p, q, first, l: ptr;
  n, i, j, k: integer;
begin
  randomize;
//создаем исходный список
  repeat
    write('Размер списка n>1 n=');
    readln(n);
  until n > 1;
  new(p);
  first := p;
  p^.next := nil;
  p^.key := 0 + random(99);
  q := p;
  for i := 2 to n do
  begin
    new(p);
    p^.key := 0 + random(100);
    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;
///вставить после каждого четного элемента,звено содержащее количество звеньев с нечетными элементами идущими перед ними
  p := first;
  while p <> nil do
  begin
    k := p^.key; //смотрим значение
    if ((n mod 2) <> 0) then //если четное
    begin
      for j := 1 to k do //ставляем
      begin
        new(l);
        q := p^.next;
        p^.next := l;
        l^.next := q;
        l^.key := 0;
        p := p^.next;
      end;
    end
    else p := p^.next; //если четное дальше

    /// вывод списка
    p := first; while p <> nil do begin
      p := p^.next;
    end;
  end;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE]
(кнопочка на панели форматирования с решёточкой #)
Не забывайте об этом!

Модератор.