Курсовая работа: Створення програми гри "Шибениця"

procedure gexit (s: string);

begin

closegraph;

writeln (s);

readkey;

exit;

end;

procedure init;

var i,j,k,grDriver,grMode,ErrCode: integer;

begin

randomize;

assign (f1,'word. dat');

reset (f1);

k: =random (10);

for j: =1 to k do

readln (f1,first);

el: =0;

close (f1); {уходя тушите свет:) }

for i: =1 to length (first) do

first [i]: =upcase (first [i]);

tru: =0; fal: =0;

second: =first;

grDriver: =Detect;

InitGraph (grDriver, grMode, '');

ErrCode: =GraphResult;

window (1,1,getmaxx,getmaxy);

If ErrCode <> grOk Then

Begin

WriteLn (Graph error: ', GraphErrorMsg (ErrCode));