динамические структуры данных.линейные списки.

[Firgat13]

помогите решить .
эти задачи.
2)Сформировать список из N целочисленных случайных элементов (N- вводится пользователем ,значения элементов выбирать из диапазона от 0 до 99 ).Удалить из списка четные числа,только в том случае, если перед и после четного числа стоят элементы с нечетными значениями.

[Firgat13]

uses crt;
type Ptr=^count;
count=Record
Key:integer;
Nexttr;
end;
var p,q,first,ltr;
a,n,i,k:integer;
begin

repeat
write('Ðàçìåð ñïèñêà n>0 n=');
readln(n);
until n>1;
new(p);
first:=p;
p^.next:=nil;
p^.key:=random(100);
q:=p;
for i:=2 to n do
begin
new(p);
p^.key:=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 k mod 2=0 then

[newbieee]

обведи код с тегами:
[CODE-] КОД ТВОЙ [/CODE-]

P.S: Убери - после CODE