поиск элемента

[bagira07]

помогите пожалуйста=( Я вас умоляю. Вы-моя последняя надежда. Завтра лабораторную сдавать с программой,а я даже понять не могу,как ее написать(


Структура односвязного списка-кольцеобразный список;

Тип информационного поля-символьный тип

А само задание звучит следующим образом:
поиск 1-го элемента, принадлежащего заданному интервалу значений

[val_nnm]

В виде исключения написал.
Примерно так

type
  TTElement = ^TElement;
  TElement = Record
    Value:char;
    Next:TTElement;
  end;

Procedure AddElement(var hearder:TTElement; Value:char);
var t:TTElement;
Begin
  new(t);
  t^.Value := Value;
  if hearder = nil then
  Begin
    t^.Next := t;
  end else Begin
    t^.Next := hearder^.Next;
    hearder^.Next := t;
  end;
  hearder := t;
End;

function FindElement(var hearder:TTElement; min:Char; max:Char):boolean;
var t:TTElement;
    IsFound:boolean;
Begin
  if (hearder = nil) then
    FindElement := false
  else Begin
    t := hearder;
    hearder := hearder^.Next;
    while (IsFound = false) and (hearder <> t) do Begin
      if ((hearder^.Value>=min) and (hearder^.Value<=max)) then
        IsFound := true
      else
        hearder := hearder^.Next;
    end;
    if ((hearder^.Value>=min) and (hearder^.Value<=max)) then
      FindElement := true
    else
      FindElement := false;
  end;
End;

Var List:TTElement;
    s:string;
    minC:char;
    maxC:char;
    i:integer;
Begin
  Writeln('Введите строку символов');
  readln(s);
  Writeln('Введите начальный символ интервала');
  readln(minC);
  Writeln('Введите конечный символ интервала');
  readln(maxC);

  for i := 1 to Length(s) do
    AddElement(List,s[i]);

  if (FindElement(List,minC,maxC)) then
    writeln('Элемент найден ',List^.Value)
  else
    writeln('Элемент ненайден');
End.

Но лучше было бы, если бы вы написали свой код. Тогда проще было бы понять что именно вам нужно.

[bagira07]

for i:=1 to k
writeln (T^. inf);
T:=T^.next;


if T^.inf >='3' OR T^.inf <='7'
begin
wrateln (T^.inf) ;
break;

часть того,что должно присутствовать....а вот полностью не могу написать(

[bagira07]

спасибочки большое=)