Didžiausio skaičiaus radimas - pascal

Sveiki, turiu klausimą:

Kaip galima rasti didžiausią skaičių iš failo?

Kodas:

program Zaidimas;
 var n, s, az, i, sk : integer;
               Fr, Fw : text;
begin
 Assign(Fr, 'Duomenys.txt');
 Reset(Fr);
 Read(Fr, n);
 n := n div 2;
 for i := 1 to n do
   begin
     ReadLn(Fr, s, az);
     sk := s + az;
     WriteLn(s, ' + ', az, ' = ', sk);
   end;
 Close(Fr);
 Readln;
end.

Duomenys.txt

10
6 2
7 1
5 6
1 8
4 3

Detalesnė info apie užduotį:

Du draugai pirmokai mokosi sudėti skaičius ir žaidžia tokį žaidimą: n kortelių (n - lyginis skaičius) jie

pasidalija po lygiai. Ant gautų kortelių kiekvienas užrašo po vieną skaičių nuo 1 iki 10. Nežiūrėdami į

parašytus skaičius, vaikai sudeda korteles poromis: pirmasis žaidėjas deda kortelę, šalia jos deda kortelę

antrasis žaidėjas. Veiksmai kartojami, kol sudedamos visos kortelės. Po to ieškoma kortelių poros, kurios

skaičių suma yra didžiausia. (Jei yra kelios tokios kortelių poros, tai imama pirmoji.) Žaidimą laimi tas,

kurio išrinktos poros kortelėje užrašytas didesnis dėmuo. Jei abu dėmenys vienodi, skelbiamos lygiosios.

Parenkite programą, kuri apskaičiuotų, kuris pirmokas laimėjo žaidimą.

Pradinių duomenų faile Duomenys.txt nurodytas kortelių skaičius n ir žaidėjų sudėtų poromis kortelių

skaičiai - nuo 1 iki 10, atskirti tarpais (skaičiai gali kartotis).

 

Rezultatų failo Rezultatai.txt pirmoje eilutėje pateikite didžiausią sumą ir tos sumos dėmenis. Kitoje eilutėje

- laimėtojo numerį (1, jei žaidimą laimėjo pirmasis draugas, arba 2, jei žaidimą laimėjo antrasis) ar abiejų

žaidėjų numerius, atskirtus tarpais, jei skelbiamos lygiosios.

paprasta, prisiskiri pirmą reikšmę kaip max, tada kai skaitai tikrini ar jis didesnis nei max, jeigu taip tai max = tas skaicius