Курсовая работа: Пасьянс "Три пика"

write(f,UInfo);

close(f);

end;

Procedure DisplayStat;

var

i: longint;

f: file of TUserInfo;

buf: TUserInfo;

begin

assign(f,'peaks.dat');

{$I-}

reset(f);

{$I+}

if IOResult<>0 then exit;

for i:=1 to filesize(f) do

begin

read(f,buf);

with buf do

writeln('Name: ', UserName,' Wins: ',wcnt, ' Defeats: ',dcnt,

' Score: ', AllScore);

if (i mod 23) = 0 then

begin

writeln;

writeln('Press any key to continue...');

readkey;

ClrScr;

end;

end;

close(f);