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

readln(name);

write ('schet: ');

readln(schet);

write(f,rec);

end;

inc(p);

until p=11;

procedure score(kol:integer; nik:string);

type pass=record

name:string[10];

schet:integer;

end;

var t:char; f:file of pass; rec:pass;

e:boolean; address,klon:string; mes,k,p,fop,kolop,sch:integer;

begin

clrscr;

address:='FILEOFRE';

assign(f,address);

begin

kolop:=kol;

e:=false;

p:=0;

fop:=1;

mes:=1;

{rewrite(f);

repeat

with rec do begin

write ('name: ');

readln(name);