Входная строка имела неверный формат - PascalABC.NET (251247)

Type l=record
name:string[30];
tema:string[30];
kol:integer;
tir:integer;
st:integer;
end;
var a:array[1..10] of l;
f:text;
begin
assign(f,'input.txt');
reset(f);
for var i:=1 to 10 do 
 begin
 readln(f,a[i].name,a[i].tema,a[i].kol,a[i].tir,a[i].st);
 end;
 writeln(a[2].name);
 close(f);
 end.

Глобус
Наука
120
45
17000