217-es hibakóddal folyton kilép! Ez miért van? Meg lehet ezt csinálni máshogy is?

Program:

program beolvasas;

Uses SysUtils;

var f:text;

g:real;

s,st:string;

c,er:real;

n,i,m,o,j:byte;

e:array [1..300] of string;

cs:array [1..300] of string;

h:array [1..5] of integer;

d:array [1..5] of integer;

v:array [1..5] of integer;

k:array [1..5] of real;

begin

assign(f,'esemeny.txt');

{$I-}

reset(f);

{$I+}

if IOResult<>0 then begin

writeln('Hiba: nincs meg a file.');

halt;

end;

while not eof(f) do begin

i:=i+1;

readln(f,e[i]);

end;

close(f);

i:=0;

writeln(e[1]);

writeln(e[2]);

assign(f,'csapat.txt');

{$I-}

reset(f);

{$I+}

if IOResult<>0 then begin

writeln('Hiba: nincs meg a file.');

halt;

end;

while not eof(f) do begin

i:=i+1;

readln(f,cs[i]);

end;

close(f);

i:=0;

writeln(cs[1]);

writeln(cs[2]);

assign(f,'h.txt');

{$I-}

reset(f);

{$I+}

if IOResult<>0 then begin

writeln('Hiba: nincs meg a file.');

halt;

end;

while not eof(f) do begin

i:=i+1;

readln(f,st);

h[i]:=StrToInt(st);

end;

close(f);

i:=0;

writeln(h[1]);

writeln(h[2]);

assign(f,'d.txt');

{$I-}

reset(f);

{$I+}

if IOResult<>0 then begin

writeln('Hiba: nincs meg a file.');

halt;

end;

while not eof(f) do begin

i:=i+1;

readln(f,st);

d[i]:=StrToInt(st);

end;

close(f);

i:=0;

writeln(d[1]);

writeln(d[2]);

assign(f,'v.txt');

{$I-}

reset(f);

{$I+}

if IOResult<>0 then begin

writeln('Hiba: nincs meg a file.');

halt;

end;

while not eof(f) do begin

i:=i+1;

readln(f,st);

v[i]:=StrToInt(st);

end;

close(f);

writeln(v[1]);

writeln(v[2]);

{for m:=1 to i do

begin

k[1]:=h[m];

k[2]:=d[m];

k[3]:=v[m];

writeln('');

writeln(k[1]);

writeln(k[2]);

writeln(k[3]);

for i:=1 to 2 do

begin

for j:=i+1 to 3 do

begin

if k[j]<k[i] then

begin

n:=k[i];

k[i]:=k[j];

k[j]:=n;

end;

end;

end;

for j:=1 to 3 do

begin

write(k[j],' ');

end;

writeln('');

er:=k[2]/k[1];

writeln(er);

end; }

readln;

end.

Ez egy olyan program, amely beolvassa a csapatok nevét, számát, és a különböző végkifejletek esélyeit. Az lenne a feladat, hogy a 2. legkisebb esélyt(egy csapaton belül) elosszuk a legesélyesebbel.

Pl. 251-es A csapat esély: győzelem:2, döntetlen: 4, vereség: 8,

-> 4/2 azaz 2