Создать упорядоченный список с информацией о пяти студентах: имя, фамилия, ВУЗ, факультет, домашний адрес, телефон.

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Button2: TButton;
    procedure FormActivate(Sender: TObject);
    procedure Edit2Click(Sender: TObject);
    procedure Edit1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
type
TPStudent=^TStudent;
TStudent=record
Fam:string[20];
Nam:string[20];
next: TPStudent;
end;
var
head: TPStudent;
n:integer;
procedure TForm1.Button1Click(Sender: TObject);
var
node:TPStudent;
curr:TPStudent;
pre:TPStudent;
begin
new(node);
node^.fam:=edit1.text+' ';
node^.Nam:=Edit2.Text;
curr:=head;
pre:=NIL;
while (curr<>NIL) and (node^.fam>curr^.fam) 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;
n:=n+1;
Edit1.Text:='';
Edit2.Text:='';
Edit1.SetFocus;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
var
curr:TPStudent;
st:string;
begin
st:='';
curr:=head;
  if n<>0 then
    while curr<>NIL do
      begin
      st:=st+curr^.Fam+''+curr^.Nam+#13;
      curr:=curr^.next;
      ShowMessage('Список:'+#13+st)
      end
  else ShowMessage('В списке нет элементов.');
end;
 
procedure TForm1.Edit1Click(Sender: TObject);
begin
Edit1.SelectAll;
end;
 
procedure TForm1.Edit2Click(Sender: TObject);
begin
Edit2.SelectAll;
end;
 
procedure TForm1.FormActivate(Sender: TObject);
begin
head:=NIL;
n:=0;
end;
 
end.