Записи с вариантами: Вычислить средний вес урожая с грядки для каждого дачника

program xxx;
 
type info = record
    lastname : string;
    name : string;
    harvest : array [1..5] of integer;
    average  : real;
end;
 
const n = 10; //Кол-во дачников
var
    a : array [1..n] of info;
 
    
procedure WriteInfo();
var i,j : integer;
begin
    for i := 1 to n do
        begin
            write('Введите фамилию ',i,'-ого дачника:');
            readln(a[i].lastname);
            write('Название овоща:');
            readln(a[i].name);
            for j := 1 to 5 do
                begin
                    write('Введите урожай с ',j,'-ой грядки:');
                    readln(a[i].harvest[j]);
                end;
        end;
end;
 
procedure CalcAverage();
var i,j : integer;
        //x : real;
begin
    for i := 1 to n do
        begin
            for j := 1 to 5 do 
                begin
                    a[i].average := a[i].harvest[j] + a[i].average;
                end;
            a[i].average := a[i].average/5;
        end;
end;
 
procedure SortAverage ();
var i,j : integer;
        temp : info;
begin
    for i := 1 to n do
        begin
            for j := i+1 to n do
                begin
                    if a[i].average > a[j].average then
                        begin
                            temp := a[i];
                            a[i] := a[j];
                            a[j] := temp;
                        end;
                end;
        end;
end;
 
procedure PrintAll ();
var i : integer;
begin
    for i := 1 to n do
        begin
            writeln('Фамилия: ',a[i].lastname);
            writeln('Название овоща: ',a[i].name);
            writeln('Cредний урожай: ',a[i].average:4:2);
        end;
end;
 
begin
    WriteInfo();
    CalcAverage();
    SortAverage();
    PrintAll();
    readln;
end.