Reikia fps pagalbos pradedanciajam

Sveiki, nezinau ar cia pataikiau, bet gavau uzduoti ir niekaip nerandu sprendimo.

Taigi yra tekstinis failas kuriame yra surasyti skaicia:

5

1 12 11 10

5 5 12 8

8 12 12 12

11 10 12 4

15 14 10 9

Pirmasis skaicius 5 - nurodo dienu skaiciu.

Kitu eiluciu pirmieji skaiciai nurodo dienas, sekantys trys skaiciai kiekvienoje eiluteje nurodo tu dienu temperatura ryte, diena vakara.

Taigi man reikia isvesti siu temperaturu vidurki, rasti didziausia temperatura ir isvesti diena, kai temperatura buvo visada vienoda. Pagrindine problema tame, kad nesuprantu kaip isvisti vidurki.

stai mano programos pradzia:

program dienos;

const Dduom = 'duom.txt';

var n, pd, ad, td  : integer;
   M : array[1..100] of integer;

procedure Skaityti;
var T : text;
   i : integer;

begin
   Assign(T, Dduom);
   Reset(T);
   ReadLn(n);
   for i:= 1 to n do
   ReadLn(T, M[i], M[pd], M[ad], M[td]);
   Close(T);
end;

function vidurkis : real;
var i, sum : integer;
begin
   sum:= 0;
   for i:= 1 to 15 do
   begin
    sum:= Sum +  M[pd] + M[ad] + M[td];
   end;
   vidurkis:= sum ;
end;

begin
WriteLn(vidurkis);
end.

Kolkas klaidu nera, taciau su vidurkiu jau sustrigau, meta perzenkti reziai, padekit prasau :)

Labai jau įdomus tavo nuskaitymas iš failo... Į tą patį masyvą surašinėji dienų numerius ir temperatūras. Patarčiau pirmiausia pasidaryti veikiantį nuskaitymą iš failo, atskiras temperatūras ir dienų numerius įrašinėti į atskirus masyvus. Patikrinti, ar gerai nuskaitė gali viską vėl atspausdindamas ekrane). O dėl vidurkio skaičiavimo, tai pamiršai sumą iš dienų skaičiaus padalinti (dienų skaičius - paskutinės dienos numeris sąraše, ne n, nesumaišyk).

Kol kas tiek, sėkmės!

P.S. Jei programuoti pradėjai visai nesenai, patarčiau pradėti nuo lengvesnių užduočių.