Задача на файл, Помогите, что здесь не так? Опции

[dae-woo]

 
{$N+}
program lab8;
uses crt;
type q=record
     f:string [10];
     p:string [10];
     g:integer;
     r:integer;end;
var w:file of q;
    m:q;
    i, r_max, s:integer;

Begin
assign(w,'t.txt');
rewrite(w);
for i:=1 to 10 do begin
    writeln('familya');
    readln (m.f);
    writeln('pol');
    readln (m.p);
    writeln('god rojdeniya');
    readln (m.g);
    writeln('rost v cm');
    readln (m.r);
    write(w, m); end;
reset(w);
for i:=1 to 10 do begin
    read(w,m);
    write (m.f, m.p, m.g, m.r);
end;
s:=1;
seek(w,0);
for i:=1 to 10 do begin
    if m.r>s then r_max:=m.r;
    writeln(m.f, m.p, m.g, m.r);
    writeln (r_max); end;
readln;
end.

 

Задача на файл, Помогите, что здесь не так?

Вот само задание: Запись имеет вид: фамилия, пол, год рождения, рост. Вывести данные о самом высоком спрорцмене.

Сообщение отредактировано: dae-woo - 24.10.2009 20:35

[dae-woo]

ой что-то я непонял=((( куда это все лепить

[Lapp]

ой что-то я непонял=((( куда это все лепить

Ну я же ясно выразился (см. выше): "Этот код заменяет ОБА последних цикла"!!
Читать умеешь? очки надень..