[Norw]

Код:

procedure TForm1.Button2Click(Sender: TObject);
begin
reset(f);
read(f,s);
label121.Caption:=s[1]+s[2]+s[3]+s[4]+s[5]+s[6]+s[7]+s[8]+s[9]+s[10];
for j:=0 to 23 do
if strtofloat(s[11+j*5])=0 then
begin prolet[strtoint(s[(11+j*5+1)]),1]:=1;
 prolet[strtoint(s[11+j*5]),2]:=strtoint(s[(11+j*5+2)]+s[(11+j*5+3)]);
 prolet[strtoint(s[11+j*5]),3]:=strtoint(s[(11+j*5+4)]+s[(11+j*5+5)]);

end
else
begin
prolet[strtoint(s[11+j*5]+s[(11+j*5)+1]),1]:=1;
 prolet[strtoint(s[11+j*5]),2]:=strtoint(s[(11+j*5)+2]+s[(11+j*5)+3]);
 prolet[strtoint(s[11+j*5]),3]:=strtoint(s[(11+j*5)+4]+s[(11+j*5)+5]);
end;
end;

при выполнении процедуры выдается ошибка "проект вызвал исключение класса EConverError" ... почему это происходит и как это можно исправить???