Blogas skaičiaus formatas "Paskalis"

Sveiki, gal galit padėti, meta klaidą "Blogas skaičiaus formatas".

program manksta;

Type

Duomenys = record

pavadinimas : string;

kartai : integer;

end;

var d: array [1..100] of Duomenys;

n,i: integer;

procedure nuskaitymas;

var myfile: text;

i,n: integer;

begin

i:=1;

assign(myfile,'u2.txt');

reset(myfile);

Readln (myfile, n);

for i:= 1 to n do

begin

ReadLn (myfile, d[n].pavadinimas, d[n].kartai);

end;

Close (myfile);

end;

begin

nuskaitymas;

Readln;

end.

Kokia proga dar su Paskaliu programuojate?

Kokia proga dar su Paskaliu programuojate?

:D :D geras klausimas

Kokia proga dar su Paskaliu programuojate?

O reikia progos, kad Paskaliu programuot? :D

Type
Duomenys = record
pavadinimas : string[5];  // vietoj "5" nurodyk savo pavadinimo ilgį

Ir dar čia klaida

ReadLn (myfile, d[n].pavadinimas, d[n].kartai);

turi būti

Readln (myfile, d[i].pavadinimas, d[i].kartai);