Задача на записи, Упорядочить список студентов по алфавиту. Опции

[Eugen]

Помогите пожалуйста!Необходимо упорядочить список студентов по алфавиту.Задачи с использованием записей.Файл со списком студентов уже создан.На выходе должен получится второй файл с упорядоченным списком!

[DarkWishmaster]

Помогите пожалуйста!Необходимо упорядочить список студентов по алфавиту.Задачи с использованием записей.Файл со списком студентов уже создан.На выходе должен получится второй файл с упорядоченным списком!

Uses Crt;
type Student=record
       Name:string[20]; 
                //думаю не будет имен больше чем 20 букв (за то можно удлинить список до 3000 элементов
     end;
     List=array[1..3000] of student;
var S:Student; i,n:byte; F:text;
    a:List;
procedure CheckPos(S:student);
var i,j:byte; p,t:student;
begin
i:=1;
   while (S.name>a[i].name) and (i<n)  do  //Находим место для студента в списке
    inc(i);
p:=a[i];
a[i]:=S;
   for j:=i+1 to n do //смещаем весь список влево 
       begin
          t:=a[j];
          a[j]:=p;
          p:=t;
        end;
   end;
Begin ClrScr;
assign(F, 'C:\In.TXT');
reset(F);
n:=0;
while not eof(F) do
   begin
      readln(F, S.Name);
      inc(n);
      CheckPos(S);
   end;
For i:=1 to n do
writeln(a[i].Name);
readln;
end.