Построить гса для Паскаль программы

uses crt;

const MAX = 20;

type student = record
ln : string[20];
average : real;
marks : array[1..6] of integer;
end;

var students : array[1..MAX] of student;
i , j , n : integer;
best : student;

begin
write(Input amount of students: ); readln(n);
for i := 1 to n do begin
with students[i] do begin
writeln(Input data for , i , student: );
write( Lastname = ); readln(ln);
write( Mathematics = ); readln(marks[1]);
write( Physics = ); readln(marks[2]);
write( Russian = ); readln(marks[3]);
write( English = ); readln(marks[4]);
write( Programming = ); readln(marks[5]);
write( Economics = ); readln(marks[6]);
for j := 1 to 6 do
average := average + marks[j];
average := average / 6;
end;
end;
best := students[1];
for i := 2 to n do
if students[i].average > best.average then
best := students[i];
writeln(Best student: , best.ln , His average: , Best.average : 0 : 3);
readkey;
end.