Найти min и упорядочить список.Error 113

[beLOVEd]

Доброго времени суток всем!

Есть такая задача: Составить список учебной группы(25чел). Для каждого указать (..). Вывести ФИО, курс, группу студентов и колонку с min средним балом. Упорядочить список по последней колонке(min средний балл).

Листинг программы:
program min_sr_ball;
uses crt;
const
st=25; {кол-во студентов}
type
student=record {составная запись СТУДЕНТ}
fio:string[40]; {ФИО}
data_rozhd:record
day:integer;
mounth:integer;
year:integer;
end;
god_post:integer;
group:string[8];
kurs:integer;
ocenki:array[1..40] of integer;
sr_ball:real; {Средний балл}

end;
var
spisok:array[1..st] of student; {массив - список студентов}

{Ввод студентов}
procedure vvod;
var i,j,k,sr:integer;
min:real;
begin
for i:=1 to st do
begin
clrscr;
writeln(i,'fio data_rozhd god_ost group kurs ocenki');
gotoxy(1,2);
readln(spisok[i].fio);
gotoxy(18,2);
readln(spisok[i].data_rozhd.day,
spisok[i].data_rozhd.mounth,
spisok[i].data_rozhd.year);
gotoxy(31,2);
readln(spisok[i].god_post);
gotoxy(41,2);
readln(spisok[i].group);
gotoxy(50,2);
readln(spisok[i].kurs);
sr:=0;
for j:=1 to spisok[i].kurs do
begin
gotoxy(56,1+J);
for k:=1 to 4 do
begin
readln(spisok[i].ocenki[(j-1)*4+k]);
gotoxy(56+2*(k), 1+j);
sr:=sr+spisok[i].ocenki[(j-1)*4+k];
end;
end;

{Определение среднего балла}
spisok[i].sr_ball:=sr/(spisok[i].kurs*4);

{Поиск минимального среднего балла}

min:=spisok[1].sr_ball;
if spisok[1].sr_ball<min
then min:=spisok[i].sr_ball;
end;


{Вывод отсортированного списка}
procedure vyvod; =<<<< error 113: Error in statement=
var i,j,k,str:integer;
srend:real;
stud:student;
begin
for i:=1 to st-1 do
for j:=1 to st do

begin
stud:=spisok[i];
spisok[i]:=spisok[j];
spisok[j]:=stud;
end;

end;
clrscr;
str:=2;

{Вывод сведений о студенте}
writeln('fio data_rozhd god_ost group kurs ocenki sr_ball');
for i:=1 to st do
begin
gotoxy(1,str);
(..)
Не стала дописывать программу до конца, решила сначала разобраться с проблемой (которая выделена в листинге), но не смогла..
Строго не судите, это только 4ая моя "программа" в Turbo Pascal.
Прошу помочь с этой ошибкой и, если еще что-то заметите кроме того, буду рада

[p51x]

еще энда выше не хватает