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

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

readkey;

end;

var

ch: char;

UserInfo: TUserInfo;{Информация об играющем}

begin

ChDir(workdir); {Переходим в каталог откуда запущенна программа}

randomize;

with UserInfo do

begin

UserName := GetUserName;

wcnt :=0;

dcnt :=0;

end;

Init;

repeat {Рабочийциклпрограммы}

if keypressed then ch:=readkey; {Сканируемнажатияклавиш}

ScanMouse; {Сканируеммышь}

CalcTime;{Считаемвремя}

until (ch=#27) or DefeatOrWin(UserInfo);

CloseGr;

if (UserInfo.wcnt>0) or (UserInfo.dcnt>0) then

SaveToFile(UserInfo);

DisplayStat;

ClrScr;

writeln('3 Peaks');

writeln('ver. 1.0');

Writeln('(c) 2004 by Denis Kireev')