сортировка

[for_tuna]

Дан список студентов, содержащий фамилию студента и его отметки по физике, математике и информатике. Определить стипендию для каждого студента (стипендия может быть повышенная, все пятерки, обычная и стипендии может не быть). Получить список студентов получающих стипендию, отсортированный сначала в порядке убывания стипендии, а потом по алфавиту.


Программа есть,как осуществляется сортировка не пойму...
uses crt;
type stud=record
fam: string [20];
fiz,mat,inf,stip: integer;
end;
var n,i: integer;
s: array [1..200] of stud;
begin
write ('Введите количсетво студентов ' );
readln (n);
for i:=1 to n do
with s[i]do
begin
write ('фамилия ' ); readln (fam);
write (оценка по физике ' ); readln (fiz);
write ('оценка по математике ' ); readln (mat);
write ('оценка по информатике ' ); readln (inf);
if (fiz=5) and (mat=5) and (inf=5) then stip:=1;
if (fiz>=4)and (mat>=4) and (inf>=4) then stip:=2 else stip:=0;
end;
for i:=1 to n do
with s[i] do
begin
if stip =1 then writeln ('Повышенная стипендия');
if stip =2 then writeln ('Обычная стипендия');
if stip =0 then writeln ('Нет стипендии');
end;
end.


и еще помогите пожалуйста составить условие для обычной стипендиии....просто когда я ввожу все пятерки -выводит что обычная стипендия,т.к. попадает во второе условие...как сделать чтоб этого не было?

[Google2010]

выводит что обычная стипендия,т.к. попадает во второе условие

if (fiz=5) and (mat=5) and (inf=5) then stip:=1 else
if (fiz>=4)and (mat>=4) and (inf>=4) then stip:=2 else stip:=0;

[for_tuna]

спасибо)))))а как по поводу сортировки?есть идеи?))

[mifomen]

http://programmersforum.ru/showpost....3&postcount=10

Задания по сортировки идентичны, сообразишь

[for_tuna]

и все такие не могу понять...вот сделала чтото примерно,но не то...помоги пожалуйста=) а то зачет завтра=)

uses crt;
type stud=record
     fam: string;
     fiz,mat,inf,stip: integer;
     end;
var n,j,i: integer;
    buf, buf1,buf2:string;

a: array [1..200] of stud;
begin
write ('введите количество студентов ' );
readln (n);
for i:=1 to n do
with a[i]do
begin
write ('фамилия ' ); readln (fam);
write ('оценка по физике ' ); readln (fiz);
write ('оценка по математике ' ); readln (mat);
write ('оценка по информатике ' ); readln (inf);
if (fiz=5) and (mat=5) and (inf=5) then stip:=1 else
if (fiz>=4)and (mat>=4) and (inf>=4) then stip:=2 else stip:=0;

end;
for i:=1 to n do
with a[i] do
begin
if stip =1 then writeln ('Повышенная стипендия');
if stip =2 then writeln ('Обычная стипендия');
if stip =0 then writeln ('нет стипендии');

repeat
buf1:=a[i].fam;
buf2:=a[i+1].fam;
if buf1[1]>buf2[1] then
begin buf:=a[i].fam;
      a[i]:=a[i+1];
      a[i+1].fam:=buf;
      dec(i);
end;
inc(i);
until i>=n;
end;
FOR i:=1 to n do
Writeln(a[i].fam);
end.

[for_tuna]

ваша помощь так нужна