{ RINGSTRUKTUR                            }
{ Autor: Thomas Speiser                   }
{ Source from: http://Codes.TurboTools.de }

uses Crt;

type zeiger = ^element;
       element = record
       value: char;
       next: zeiger;
       woanders: zeiger;
     end;

var ring: zeiger;

function Seek_Ele(ring: zeiger; v: char): zeiger;
var h: zeiger;
begin
h:=ring;
if h <> nil then
begin
 repeat
  if h^.value = v then Seek_Ele:=h else Seek_Ele:=nil;
  if h^.woanders <> nil then Seek_Ele:=Seek_Ele(h^.woanders,v);
  h:=h^.next;
 until h = ring;
end;
end;

begin
 TextMode(CO80 xor Lo(LastMode)+Font8x8 xor LASTMODE);
 ClrScr;
 readLN;
end.