Padėkit rasti klaidą (Pascal)

Sveiki. Gal kas nors galit padėti ir nurodyti, kur mano bėdos. Užduotys: Reikia rasti mokinių, kurių suapvalintas vidurkis lygus 10.

Mano kodas:

program mokykla;
const CDuom='duom.txt';
      CRez='rez.txt';
type klas=record
     pavarde,vardas:string;
     klass:integer;
     vidurkis:real;
     end;
     mas=array[1..100] of klas;
 var n:integer;
 m:mas;
 Rf:text;
 pav,vard:string;
 kl,k:integer;
 vid:real;
//---------------------------------------------
procedure skaitimas;
 var Df:text;
     i:integer;
begin
Assign(Df,CDuom);
Reset(Df);
Read(Df,n);
for i:=1 to n do
begin
Read(Df,m[i].pavarde,m[i].vardas,m[i].klass,m[i].vidurkis);
 if Round(m[i].vidurkis)=10 then begin
    k:=i;
     pav:=m[i].pavarde;
     vard:=m[i].vardas;
     kl:=m[i].klass;
     vid:=m[i].vidurkis;
  end;
  end;
  Close(Df);
 end;

//---------------------------------------------
begin
skaitimas;
Assign(Rf,CRez);
Rewrite(Rf);
Writeln(Rf,pav,' ',vard,'   ',kl,'  ',vid);
Close(Rf);
end.

Duomenų failas:

6
Burokas    Jurgis     8   8.5
Kazlauskas Vytaytas   9   7
Virkate    Rima       9   9.8
Petraitis  Petras     5   8
Fetraitis  Petras     8   9.5
Valdokas   Linas      8   8

Lyg tai viskas teisingai parašiau šioje programoje.... Iš anksto ačiū už pagalbą.

Blogas duomenų nuskaitymas

Visų pirma siūlau vardams, pavardėms skirti tam tikra simbolių skaičių (string[x]), kad skaitant eilutę tau nemautų visko į vieną.

Blogas duomenų nuskaitymas

O kaip reikia skaityti? Ką aš neteisingai padariau?

na, nezinau kaip paskalyje, bet c++ string nuskaito iki tarpo, todel duomenu faile turi buti po viena tarpa tarp duomenu.

na, nezinau kaip paskalyje, bet c++ string nuskaito iki tarpo, todel duomenu faile turi buti po viena tarpa tarp duomenu.

Mano duomenu faile lyg tai yra tarpai tarp string vardus

Pabandyk be for ciklo daryti

http://forum.lrytas.lt/topic_show.pl?pid=1405846;hl=

ir su String[20] reikia sužaisti