Pascal įrašas

Sveiki, kodėl meta problemą ties 22 eilute? Kaip suprantu A.pav nuskaito, bet A.kelias jau nebe nuskaito. Kame šaknys?

program Kelionë;
 type
   stoteles = record
    pav : string[15];
    kelias : real;
    hpr, mpr : integer;
   end;
 Mas = array [0..100] of stoteles;

// Duomenų skaitymas

procedure Skaitymas(var A:Mas; var n:integer; var v:real);
 var  F : text;
      i : integer;

   begin
   Assign (F, 'U1.txt');
   Reset (F);
   ReadLn (F, n, v, A[0].hpr, A[0].mpr);

       for i := 1 to n do
       ReadLn (F, A[i].pav, A[i].kelias);

   Close (F);
   end;

var A:Mas;
   n, i:integer;
   v:real;
   R:text;

   begin
   Assign(R, 'rez.txt');
   Rewrite(R);

   Skaitymas(A, n, v);

   for i:=1 to n do
   WriteLn(R, A[i].pav, ' ', A[i].kelias);
   Close(R);

end.

Pasižiūrėk ar duomenų faile tikrai teisingai atidėtos reikšmės. Turiu omeny, kad pav - 15 simbolių

Pasižiūrėk ar duomenų faile tikrai teisingai atidėtos reikšmės. Turiu omeny, kad pav - 15 simbolių

Užduotyje nurodyta, kad Pavadinimui skirtos pirmos 15 eilutės pozicijų.

Duomenų failas, kurį susikūriau pats:

6 70 10 15
Elektrėnai 50.5
Žiežmariai 20
Kaunas 22.35
Raseiniai 80
Kryžkalnis 20
Klaipėda 100.8

Pagal šį:

http://i.imgur.com/Jabs5ph.png

Susitvarkiau, reikėjo atidėt dar pora tarpų po pavadinimų.

Užduotyje nurodyta, kad Pavadinimui skirtos pirmos 15 eilutės pozicijų.

 

Duomenų failas, kurį susikūriau pats:

 

6 70 10 15
Elektrėnai 50.5
Žiežmariai 20
Kaunas 22.35
Raseiniai 80
Kryžkalnis 20
Klaipėda 100.8

 

Pagal šį:

 

http://i.imgur.com/Jabs5ph.png

 

Susitvarkiau, reikėjo atidėt dar pora tarpų po pavadinimų.

Taip ir maniau, kad bus su tarpais! :D ^_^