Maža klaida pascal

Laba diena. Va šiandien padariau dar vieną programą su pascal ir vėl neteisingai duomenys rodo. Šį kartą kažkodėl neteisingai rodo vidurkį, lyg viskas, man atrodo, padariau.

Mano kodas:

program Noname4;
var Df,Rf:text;
   i,j,n:integer;
   vp:array[1..100] of string[15];
   kainos, dienos:array[1..100] of real;
   average,max:real;
   kain,dien:real;
   lvp:string[15];
begin
max:=1;
average:=0;
Assign(Df,'duomen.txt');
Reset(Df);
Readln(Df,n);
for i:=1 to n do begin
Readln(Df,vp[i],kainos[i],dienos[i]);
  average:=(average+dienos[i])/n;
  if dienos[i]>max then
  max:=dienos[i];
  end;
Close(Df);
    for j:=1 to n do
    for i:=1 to n-1 do
    if dienos[i+1]>dienos[i] then begin
    dien:=dienos[i+1];
    dienos[i+1]:=dienos[i];
    dienos[i]:=dien;

    kain:=kainos[i+1];
    kainos[i+1]:=kainos[i];
    kainos[i]:=kain;

    lvp:=vp[i+1];
    vp[i+1]:=vp[i];
    vp[i]:=lvp;
    end;
  Assign(Rf,'rez.txt');
  Rewrite(Rf);
   for i:=1 to n do
   Writeln(Rf,vp[i],'  ', kainos[i]:3:2,'  ', dienos[i]:3:0);
   writeln(Rf,'      ');
   writeln(Rf,'      ');
   Writeln(Rf,'vidutiniskai: ',average:3:2);
   writeln(Rf,'ilgiausiai:  ',max:3:2, ' dienu  ');
   Close(Rf);
end.

Duomenu failas:

5
Jonas Petraitis   56.79 2
Petras Jonaitis   459.79 10
Simas Simaitis    61.78  4
Maryte Kupaite    186.93 7
Lina Kursiene     781.47 18

Gal žinote, kaip padaryti, kad vidurkį rodo teisingai?

koks vidurkio atsakymas?

koks vidurkio atsakymas?

8.2

Readln(Df,vp[i],kainos[i],dienos[i]);
  average:=average + dienos[i]/n;
  if dienos[i]>max then

neapskliausk, nes tau ką sudeda vėl viską iš n dalina. :rolleyes:

Ačiū,viskas puikiai veikia