Курсовая работа: Игра "Vertolet"

readln(schet);

write(f,rec);

end;

inc(p);

until p=11;

close(f); }

reset(f);

writeln; writeln(' Pekopd ');

writeln;writeln;writeln;

repeat

read(f,rec);

writeln;

with rec do begin

write(' ',mes);

write(' ',name);

write(' : ',schet);

end;

inc(mes);

until mes=7;

close(f);

writeln;

if fop<>1 then begin

writeln(' ................. ');

end;

end;

delay(5000);

writeln; writeln;writeln;

writeln(' Press Enter ');

repeat