как отсортировать список в афавитном порядке Опции

[jakut]

имеестя файл содержащий список студентов и его надо отсортировать.
исходник:

Код

program dfs;
Const
 Max=100;
Var
 Names:Array[1..Max] Of String;
 n,i,j,k:Integer;
 in_file:Text;
 min:String;
Begin
 Assign(in_file,'C:\spicok.txt');
 Reset (in_file);
 n:=0;
 While Not Eof(in_file) Do
  Begin
   ReadLn(in_file,Names[n]);
   Inc(n)
  End;
 Close(in_file);
 For i:=1 To n-1 Do
  Begin
   k:=i;
   min:=Names[i];
   For j:=i+1 To n-2 Do
    If min>Names[j] Then
     Begin
      k:=j;
      min:=Names[j]
     End;
      If (k<>i) Then
       Begin
        Names[k]:=Names[i];
        Names[i]:=min
       End
   End;
   For i:=1 To n-1 Do
   WriteLn(Names[i])
End.

Сообщение отредактировано: volvo - 5.01.2005 1:03

[jakut]

все исправил там ошибочка была не большая!! сразу не до понял!!!

Сообщение отредактировано: jakut - 21.05.2004 9:33