Сортировка массива.Найдите ошибку.

[Namyola]

Привет,всем)

Дано:Написать программу, в которой вводится с клавиатуры и упорядочивается по алфавиту список студентов вашей
группы.

Вот примерно записал программу,выводит ошибку.правильно ли записано условие?как будет выглядеть правильная форма?

uses crt;
type stud=record
fam: string;
name:string;
end;
const
n=5;
var i: integer;
s: array [1..n] of stud;
buf:stud;
begin
clrscr;
for i:=1 to n do
with s[i]do
begin
write ('Vvedite familia= ' );
readln(fam);
write('Name= ');
readln(name);
end;

for i:=1 to n do
if s[i].fam>s[i+1].fam
then begin
buf:=s[i];
s[i]:=s[i+1];
s[i+1]:=buf;
end;

for i:=1 to n do
Writeln(s[i].fam,' ',s[i].name);
readln;end.

[Alex11223]

Дык написано же в чем ошибка. s[i+1] в последнем проходе будет больше n и выйдет за пределы массива. И такой алгоритм не всегда всё отсортирует.
Как-то так наверно.

for j := 1 to n - 1 do
    for i := n - 1 downto 1 do
      if s[i].fam > s[i + 1].fam
      then begin
        buf := s[i];
        s[i] := s[i + 1];
        s[i + 1] := buf;
      end;

[Namyola]

теперь ясн)пасибба=)