Ребят очень нужно сделать индивидуалку по алгоритмам на завтра, плииииз! - Алгоритмы - Ответ 5246344

const n=50;
type sr=^spisok;
spisok=record
info:real;
next:sr;
end;
var
p1,p:^spisok;
otv,i:byte;
Procedure sozdanie(var beg:sr);
var last,p:sr;
begin
randomize;
       new(p);
       p^.info:= random(10);
       p^.next:=beg;
       beg:=p;
  for i:=1 to n do
     begin
      last:=p;
       new(p);
       p^.info:= random(10);
       p^.next:=nil;
       last^.next:=p;
     end;
   p^.next:=beg;
end;
Procedure pechat(p1:sr);
begin
p:=p1^.next;
while p <> p1 do
    begin
            write(p^.info:3:0,' ');
            p:=p^.next;
       end;
end;
 Procedure Proverka(p1:sr; var otv:byte);
 begin
 p:=p1^.next;
 otv:=0;
while (p <> p1) and (otv = 0) do
       begin
         if(p^.info = p^.next^.info)then
                otv:=1
        else
              otv:=0;
       p:=p^.next;
       end;
 end;
begin
p1:=nil;
sozdanie(p1);
pechat(p1);
writeln();
Proverka(p1, otv);
if (otv=1) then writeln('Element raven sledyuschemy naiden');
if (otv=0) then writeln('Element raven sledyuschemy ne naiden');
readln; 
end.