[v1s2222]

В созданном модуле надо объявить процедуру как глобальную (чтоб ее можно было использовать в др. модулях).

Код:

unit Unit1;

interface

uses
  Windows, ..., Unit2;

...
procedure TForm1.Button1Click(Sender: TObject);
begin
  myproc;
end;

Теперь сам 2 модуль:

Код:

unit Unit2;

interface

procedure myproc();

implementation

procedure myproc();
begin
//...
end;

end.

Тоже самое в твоем случае. Только как-то так:

Код:

unit Unit2;

interface

procedure my_sort();

implementation

uses Unit1;

procedure my_sort;
// сортировка учатников
var
  x: us_struct;
  i,j:integer;
begin
  for i:=0 to high(list)-1 do
    for j:=i+1 to high(list) do
      if list[i].sename>list[j].sename then
      begin
        x:=list[i];
        list[i]:=list[j];
        list[j]:=x;
      end;
end;

Опять опоздал