Найдите ошибку при сортировке и исправьте её

Witeln('Введите количество записей');

Readln(n);
Fori:= 1 To n Do Begin 

Readln(fam);

Readln(im);

Readln(ot);

Readln(vozr);

Readln(ves);

Readln(rost);

End;

Writeln('-------');

Writeln ('Фамилия Имя Отчество возраст вес рост')

For i:=1 To n Do

Writeln(X[i].fam:12, 
X[i].im:10,X[i].ot:12 и так далее)

max:=0;

S:=0;

min:=150;

R:=0

For k:=1 To n-1 Do 

For i:=1 to n-k Do

If X[i].rost>X[i+1].rost Then 
Begin

R:=X[i];

X[i]:=X[i+1]; 

X[i+1]:=R;

End; 

Где здесь ошибка как её исправить это Олимпиадное задание как правильно расположить по росту в порядке возрастания