Задача Паскаль help plz

[menlo]

Представить данные о студентах института в виде массива записей со структурой:
Студент
Ф.И.О
Балл за семестр

program z_1;
uses crt;
const q=3;
type
students=record
 name:string[20];
 surname:string[20];
 otchest:string[20];
 ocenka:integer;
end;
var
i:integer;
inst:array[1..q] of students;
n:1..q;
c:byte;
procedure input_data;
begin
  writeln('Введите данные № ',n,':');
  write('Имя- ');readln(inst[n].name);
  write('Фамилия- ');readln(inst[n].surname);
  write('Отчество- ');readln(inst[n].otchest);
  write('Балл- ');readln(inst[n].ocenka);
  writeln;
end;
procedure write_data;
begin
 with inst[n] do
 begin
  writeln('Имя : ',name);
  writeln('Фамилия : ',surname);
  writeln('Отчество : ',otchest);
  writeln('Балл : ',ocenka);
 end;
end;
begin
 clrscr;
 for n:=1 to q do input_data;
  writeln('Вывод данных');
    writeln;
  readkey;
end.

Вот задача.Я не могу сделать, чтоб отсортировать по баллам.Помогите плз

[Tayfun]

Делаеться типичная сортировка массива

for i:=1 to  n-1 do
for j:=i+1 to n do
if inst[i].otchest>inst[j].otchest then begin
p:=inst[i].otchest; inst[i].otchest:=inst[j].otchest; inst[j].otchest:=p;
{только менять местами придеться все эллементы записи}
s:=inst[i].name; inst[i].name:=inst[j].name; inst[j].name:=s;
s:=inst[i].surname; inst[i].surname:=inst[j].surname; inst[j].surname:=s;
s:=inst[i].otchest;inst[i].otchest:=inst[j].otchest; inst[j].otchest:=s;
end;

Можно короче сделать через with, думаю сами справитесь.