Программа по линейному списку, нужна помощь.

[breakfast]

Имеется линейный список, содержащий информацию о студентах. Элементы списка определены след. образом:
1. ФИО - STRING[30]
2. № зачетной книжки - INTEGER
3. Оценки, полученные в период обучения - STRING[100] (каждый элемент символьной строки содержит одну оценку, незанятые элементы содержат пробелы)
4. Ссылка не след. элемент списка

Список упорядочен по возрастанию номеров зачетной книжки. Разработать в среде делфи модуль, обеспечивающий выдачу списка студентов, имеющих только отличные оценки.

[Serge_Bliznykov]

элементарно, Ватсон!
ищите здесь готовую программу по заполнению/выводу односвязанного списка. Изменяете тип под Ваш.
Изменяете процедуру вывода списка добавив одну строчечку:

 if (Pos('1', p^.Оценки) = 0) 
       and (Pos('2', p^.Оценки)=0) 
         and (Pos('3', p^.Оценки)=0) then <Выводим данные студента>

всё.

[breakfast]

искал, ничего не нашел( как делать слабо представляю, но надо срочно.

[He77ga]

По-моему, должно быть что то такое.
Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
type
TPStudent=^TStudent;
Tstudent=record
name: string;
nomer: integer;
osenka: integer;
next:TPStudent;
end;
var
Head: TPStudent;
procedure TForm1.Button1Click(Sender: TObject);
//добавление элемента
var
node: TPStudent;///
curr: TPStudent;///
pre:  TPStudent;//
begin
new(node);
node^.name:=edit1.Text;
node^.nomer:=strtoint(edit2.text);
node^.osenka:=strtoint(edit3.Text);
curr:=head;
pre:=NIL;
while (curr<>NIL)and(node.nomer>curr^.nomer) do
begin
pre:=curr;
curr:=curr^.next;
end;
if pre =NIL
  then
  begin
  node^.next:=head;
  head:=node;
  end
   else
   begin
   node^.next:=pre^.next;
   pre^.next:=node;
   end;
 edit1.Text:='';
 edit2.Text:='';
 edit3.Text:='';  
end;

procedure TForm1.Button2Click(Sender: TObject);
//вывод 
var
curr: TPStudent;
n:integer; ///
st: string;
begin
n:=0;
st:='';
curr:=head;
while curr<>nil do
begin
n:=n+1;
if curr^.osenka=5  then
st:=st+'  '+inttostr(curr^.nomer)+'  '+curr^.name+#13;
curr:=curr^.next;
end;
 if n<>0
 then showmessage('список:'+st)
 else showmessage('пусто');
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
head:=NIL;
end;

end.