Mam napisać program, które zczytuje dane z pliku txt. Chodzi o wyniki meczy. Mam obliczyć średnia ilość bramek gośći w meczach wygranych przez gospodarzy oraz wartość minimalną, czyli najmniejsza sumę bramek jaka padła w meczu i z tym mam problem. Oto co udało mi się napisać.
program Gole;
{$APPTYPE CONSOLE}
uses
SysUtils;
type tablica=array[1..100] of integer;
var
n,i,min:integer;
a,b:tablica;
srednia:real;
p:textfile;
begin
assignfile(p,'Bramki.txt');
reset(p);
n:=0;
while not eof(p) do begin n:=n+1; readln(p,a[n],b[n]); end;
close(p);
srednia:=0;
for i:=1 to n do if a[i]>b[i] then srednia:=srednia+b[i];
srednia:=srednia/n;
writeln('srednia',srednia);
min:=a[i]+b[i];
for i:=1 to n do if a[i]+b[i]<min then min:=a[i]+b[i];
writeln('Wartosc minimalna=',min);
readln;
end.
dodanie znacznika <code class="delphi"> - fp