Даны сведения о результатах сессии: ФИО студента, название четырех предметов и оценки, полученные по каждому предмету. Вывести список группы по убыванию общего балла- Pascal(Паскаль)

program ball;
uses crt;
const n=4;
type
swed=record
fio: string;
algebra: string;
geometriy: string;
angliski: string;
fizika: string;
end;
var
mas:array [1..n] of swed;
i,j:integer;
buf:swed;
begin
clrscr;
for i:=1 to n do
while mas[i] do
begin
write('vvedite fio----)');readln(fio);
write('vvedite algebra---)'); readln(algebra);
write('vvedite geometriy---)'); readln(geometriy);
write('vvedite angliski---)'); readln(angliski);
write('vvedite fizika---)'); readln(fizika);
writeln;
end;
writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
if mas[i].algebra<mas[j].algebra then
begin
buf.fio:=mas[i].fio;
buf.algebra:=mas[i].algebra;
buf.geometriy:=mas[i].geometriy;
buf.angliski:=mas[i].angliski;
buf.fizika:=mas[i].fizika;
 
mas[i].fio:=mas[j].fio;
mas[i].algebra:=mas[j].algebra;
mas[i].geometriy:=mas[j].geometriy;
mas[i].angliski:=mas[j].angliski;
mas[i].fizika:=mas[j].fizika;
 
mas[j].fio:=buf.fio;
mas[j].algebra:=buf.algebra;
mas[j].geometriy:=buf.geometriy;
mas[j].angliski:=buf.angliski;
mas[j].fizika:=buf.fizika;
end;
 
for i:=1 to n do
with mas[i] do
begin
writeln(fio);
writeln(algebra);
writeln(geometriy);
writeln(angliski);
writeln(fizika);
readln;
writeln;
end;
end.