выдает ошибку

[now2]

program ds_01;
uses ds2,crt;
var    first: integer;
       s:   integer;
procedure lst_len(lst:integer);{процедура поиска суммы положительных элементов списка}

var p:integer;
begin
   p:=lst;   s:=0;
   while p<>0 do begin{цикл суммирования положительных элементов}
if info[p]>0 then s:=s+info[p]; {если значение p-ого элемента больше нуля,то изменяем значен. s }           
 p:=link[p];{p присвоить ссылку на следущий элемент}
  end;
end; {lst_len}

begin
clrscr;
    rdblock;
    write('First: '); readln(first);
    lst_len(first);
wrblock;
    writeln('First: ',first);
writeln('summa=  ',s);

    escwait;
end.

выдает ошибку Program1.pas(2) : Модуль 'ds2' не найден
объясните пожалуйста работу программы

[now2]

вот результат

[p51x]

Вам же по-русски написали, что у вас за ошибка.