Список Опции

[SeRGuSii]

Проверьте програмку. а то при выполнении вылетает из паскаля ;)

 
{Дано два однонаправленных списка целых чисел. Удалить во втором списке все
 элементы, больше среднеарифметического положительных элементов первого
 списка и продублировать все элементы второго списка, меньше среднего арифметического четных элементов первого списка}
type list=^elem;
     elem=record
                inf:integer;
                next:list;
                end;
var p,l,o,i,q,w:list;
    x,z,u:integer;
    a,s:real;
begin
 writeln('Введите первый список: ');
 new(p);
 l:=p;
 readln(x);
 p^.inf:=x;
 readln(x);
  while x<>0 do
   begin
    new(q);
    q^.inf:=x;
    p^.next:=q;
    p:=q;
    readln(x);
   end;
  p^.next:=nil;
  p:=l;
  writeln('Введите второй список: ');
  new(o);
  i:=o;
  readln(x);
  o^.inf:=x;
  readln(x);
   while x<>0 do
    begin
     new(w);
     w^.inf:=x;
     w^.next:=w;
     o:=w;
     readln(x);
    end;
  o^.next:=nil;
  o:=i;
   while p^.next<>nil do
    begin
     if p^.inf >= 0 then
      begin
       s:=s+p^.inf;
       inc(u);
       p:=p^.next;
      end;
     if p^.inf mod 2 <> 0 then
      begin
       a:=a+p^.inf;
       inc(z);
       p:=p^.next;
      end;
    end;
   a:=a/z;
   s:=s/u;
    while o^.next^.next<>nil do
     begin
      if o^.next^.inf>s then
       begin
        o^.next:=o^.next^.next;
        o:=o^.next;
       end;
      if o^.inf<a then
       begin
        new(i);
        i^.inf:=o^.inf;
        l:=o^.next;
        o^.next:=i;
        i^.next:=l;
        o:=o^.next;
       end;
     end;
  writeln('Вывод списка:');
  o:=i;
   while o<>nil do
    begin
     writeln(o^.inf);
      o:=o^.next;
    end;
  readln
end.

.

[volvo]

Ну, что, еще раз повторить?
FAQ читал? Там все функции для работы со списком приведены, сколько можно одни и те же вопросы задавать? В поиске найди подобное задание, и измени как тебе нужно. Десятки задач на списки были решены на форуме...