Подскажите, массив сортирует, но в правильном порядке ставит только то, по чем сортировал

uses crt;
type student=record
nom:integer;
srbal:integer;
fam:string[20];
end;
massiv=array[1..10] of student;
var mas:massiv;
i,n:integer;
Procedure Vvod(var mas:massiv; n:integer);
var i:integer;
begin
for i:=1 to n do
begin
writeln('Введите информацию про ',i,' -го студента');
writeln('Номер студенческого: ');
readln(mas[i].nom);
writeln('Фамилия: ');
readln(mas[i].fam);
writeln('Средний балл: ');
readln(mas[i].srbal);
end;
end;
Procedure Vivod(var mas:massiv; n:integer);
var i:integer;
begin
for i:=1 to n do
writeln(mas[i].nom:10,mas[i].fam:15,mas[i].srbal:10);
end;
Procedure Sort(var mas:massiv; n:integer);
var h,j,i,tmp:integer;
begin
h:=n div 2;
while h>0 do begin
for i:=1 to n-h do
begin
j:=i;
while(j>0)and(mas[j].srbal>mas[j+h].srbal) do
begin
tmp:=mas[j+h].srbal;
mas[j+h].srbal:=mas[j].srbal;
mas[j].srbal:=tmp;
j:=j-h;
end;
end;
h:=h div 2;
end;
end;
begin
clrscr;
writeln('Введите кол-во студентов: ');
readln(n);
Vvod(mas,n);
writeln('Исходный массив: ');
writeln;
Vivod(mas,n);
Sort(mas,n);
writeln('Отсортированный массив: ');
writeln;
Vivod(mas,n);
readln;
end.

Procedure Sort(var mas:massiv; n:integer);
var tmp: student;
 
        tmp:=mas[j+h];
        mas[j+h]:=mas[j];
        mas[j]:=tmp;