Pascal užduotis

Sveiki, gal kas galėtu man pagelbėti su šią užduotimį?

program Kioskas;

Const   Cduom = 'kioskas.txt';
       Crez  = 'Rez.txt';
       Cmax  = 100;


Type    Prekes = Record
                 pavadinimas : string[20];
                 kiekis,
                 kaina,
                 sum         : real;
                End;

       Mas    = Array[1..Cmax] of Prekes;


Var     B, F : text;
       n    : integer;
       A    : Mas;
{--------------------------Funkcijos ir procedûros----------------------------}
Function Suma : real;
var i : integer;
Begin
   For i := 1 to n do Suma := Suma + A[i].sum;
End;

Procedure Skaiciuoti;
Var i, vieta   : integer;
   max        : real;
Begin
max   := A[1].sum;
vieta := 1;
   For i := 2 to n do
   If A[i].sum > max then
   begin
       max := A[i].sum;
       vieta := i;
   end;
Assign(F, Crez); ReWrite(F);
   WriteLn(F, A[vieta].pavadinimas,' ',A[vieta].kiekis:0:2,' ',A[vieta].kaina:0:2,' ',A[vieta].sum:0:2);
   WriteLn(F, Suma:0:2);
Close(F);
End;


Procedure Duomenys;
Var i : integer;
Begin
Assign(B, Cduom); Reset(B);
ReadLn(B, n);
   For i := 1 to n do
   Begin
       ReadLn(B, A[i].pavadinimas, A[i].kiekis, A[i].kaina);
       A[i].sum := A[i].kiekis * A[i].kaina;
   End;
Close(B);
End;


{----------------------------Pagrindinë programa------------------------------}

begin
 Duomenys;
 Skaiciuoti;
end.