списки, паскаль

[лололо]

Задано односвязный список, элементами которого есть действительные числа. Описать рекурсивную функцию, которая считает среднее арифметическое всех элементов непустого списка.
Помогите пожалуйста найти ошибку в коде

program laba12_12;
uses crt;
type ukazatel=^s;
     s=record
             data:integer;
             next:ukazatel;
     end;
var u,x:ukazatel;
    digit,c:integer;

function found(u:ukazatel;c:integer):real;
         begin
         if u<>nil  then
         found:=found(u^.next,c)+u^.data/c;
         end;

begin
clrscr;
     u:=nil;
     writeln('enter elements. end=> press 0');
     read(digit);
     if digit<>0
        then
            begin
                 new(x);
                 x^.next:=nil;
                 x^.data:=digit;
                 u:=x;
                 read(digit);
                 while digit<>0 do
                  begin
                   new(x^.next);
                   x:=x^.next;
                   x^.next:=nil;
                   x^.data:=digit;
                   read(digit);
                  end;
            end;

     writeln;    {
     sum:=0;  c:=1;
     while u<> nil do
     begin
          inc(c);
          sum:=sum+u^.data;
          u:=u^.next;
     end;          }
     begin
   while u<>nil do
   begin          inc(c);
        write(u^.data,' ');
        u:=u^.next;
   end;      end;
     write(found(u,c):2);
end.

[Stilet]

Первая крамолка в стиле Дали:

function found(u:ukazatel;var c:integer):real;
         begin
         inc(c);
         if u<>nil  then     found:=found(u^.next,c)+u^.data;
         else found:=0;
         end;

и

 c:=1;
 write(found(u,c)/c:2);

Хотя не проверял.

[лололо]

неправильно выдает, пишет на все ноль

[Stilet]

неправильно выдает

Ошибаешся. Все правильно. Дело в том что ты перед вызовом функции по списку проходишся циклом. У тебя u после цикла уже становится равным nil, потому рекурсия и не выполняется. Убери цикл вывода списка совсем, он не нужен.

[лололо]

ok работает, спасибо