Pascal klaida

Štai programa:

program s;
 type info = record
				 vardas, pavarde: string;
				 min, sek: integer;
		  end;
 type irasas = array[1..50] of info;
 var c, b: text;
 A: irasas;
 gr_sk,
 i, o, id,
 grup_dal: integer;

begin
 assign(c, 'info.txt'); reset(c);
 read(c, gr_sk);
 id := 1;
 for i := 1 to gr_sk do
begin
	read(c, grup_dal);
	for o := 1 to grup_dal do
		begin
			read(c, A[id].vardas);
			read(c, A[id].pavarde);
			read(c, A[id].min);
			read(c, A[id].sek);
			id := id + 1;
		end;
end;
 close(c);
end.

Štai info.txt failas:

3
4
Katinas Batuotas 4 25
Katinas Ratuotas 3 59
Katinas Rainas 4 15
Katinas Jaunas 6 20
2
Katinas Rudas 6 45
Katinas Juodas 3 55
5
Katinas Baltas 3 58
Katinas Gauruotas 4 2
Katinas Plikas 4 5
Katinas Ilgas 4 4
Katinas Trumpas 4 6

Meta blogo formato skaičiaus klaidą. Gal kas įsivaizduojat kas čia blogai?

String skaito visą eilutę

Reiktų nuskaititi, o poto atskirti duomenis.

Čia tikriausiai informatikos egzamino praktines užduotis sprendi? Tai ten visada būna nurodyta kiek pozicijų skiriama vardui(pavadinimui ar dar kažkam), todel apsirašinėdamas kintamąjį iškart nurodai kokio jis bus ilgio, pvz: vardas: string[15]; ir tau iškart nuskaitys tuos 15 simbolių, o tada jau galėsi integer'ius ir viską kitą nesijaudindamas skaityt.

Geras, tikrai to nežinojau anksčiau. Dėkui.