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

DrawText('You are win game');

inc(UInf.wcnt);

UInf.AllScore := UInf.AllScore+Score;

end;

repeat

if keypressed then ch:=readkey;

until (ch=#13) or (ch=#27);

if ch=#27 then

begin

DefeatOrWin := true;

exit;

end;

CloseGr;

Init;

end;

DefeatOrWin := false;

end;

Function GetUserName:string;

var

name: string[50];

begin

ClrScr;

write('Enter user name: ');

readln(name);

GetUserName := name;

end;

Procedure SaveToFile(UInfo: TUserInfo);

var

i: longint;