/p>
Zamena; {Пересування в масиві}
proverka; {Перевірка чи є даний розклад вірним}
until (ord (ch) = 27) or (prov = true);
closeGraph; {Закриття графічного режиму}
end;
procedure help;
{Перехід в режим довідки}
var f: text; {Файлова змінна}
g1: string; {Змінна для роботи з рядками у файлі}
begin
clrscr;
assign (f, 'fhelp.txt'); {Оголошення файлу}
reset (f); {Відкриття файлу}
readln (f, g1); writeln (g1); {Присвоєння змінній рядка файлу і виведення її на екран}
readln (f, g1); writeln (g1);
readln (f, g1); writeln (g1);
readln (f, g1); writeln (g1);
readln (f, g1); writeln (g1);
readln (f, g1); writeln (g1);
readln (f, g1); writeln (g1),
writeln ('For leaving press ENTER ');
readln;
close (f); {Закриття файлу}
end;
procedure result;
{Відображення кращих гравців}
begin
clrscr;
GoToXY (26,5);
writeln ('Best players');
assign (f, 'res.txt');
reset (f);
readfile; {Зчитування інформації з файлу кращих результатів}
{Виведення на екран у строгому порядку імена та результати кращих гравців}
GoToXY (26,8); write ('Move Name ');
GoToXY (26,10); write (it [1]); GoToXY (36,10); writeln (res [1]);
GoToXY (26,11); write (it [2]); GoToXY (36,11); writeln (res [2]);
GoToXY (26,12); write (it [3]); GoToXY (36,12); writeln (res [3]);
GoToXY (26,13); write (it [4]); GoToXY (36,13); writeln (res [4]);
GoToXY (26,14); write (it [5]); GoToXY (36,14); writeln (res [5]);
GoToXY (26,15), write (it [6]); GoToXY (36,15); writeln (res [6]);
GoToXY (26,16); write (it [7]); GoToXY (36,16); writeln (res [7]);
GoToXY (26,17); write (it [8]), GoToXY (36,17); writeln (res [8]),
GoToXY (26,18); write (it [9]); GoToXY (36,18); writeln (res [9]);
GoToXY (26,19); write (it [10]); GoToXY (36,19);; writeln (res [10]);
GoToXY (26,23); writeln ('For leaving press ENTER ');
readln;
end;
procedure avtor;
{Висновок загальної інформації на екран у розділ опис}
var f: text; {Файлова змінна}
g1: string; {Змінна якій присвоюється черговий рядок з файлу і виводиться на екран}
begin
clrscr;
assign (f, 'fhelp1.txt');
reset (f);
readln (f, g1); writeln (g1);
readln (f, g1); writeln (g1);
readln (f, g1); writeln (g1);
readln (f, g1); writeln (g1),
readln (f, g1); writeln (g1);
readln (f, g1); writeln (g1);
readln (f, g1); writeln (g1);
readln (f, g1); writeln (g1);
readln (f, g1); writeln (g1);
readln (f, g1); writeln (g1);
readln (f, g1); writeln (g1);
readln (f, g1); writeln (g1);
readln (f, g1); writeln (g1);
readln (f, g1); writeln (g1);
readln (f, g1); writeln (g1);
readln (f, g1); writeln (g1);
readln (f, g1); writeln (g1);
writeln ('For exit press ENTER ');
readln;
close (f);
end;
begin
{Основна програма}
{Виведення на екран головного меню}
{Елементи Головного меню, один з яких зафарбований білим кольором, а решта зеленим}
men [1]: = 15;
men [2]: = 2;
men [3]: = 2;
men [4]: ​​= 2;
men [5]: = 2;
repeat
clrscr;
strok: = +1; {Поточний рядок}
Lom: = 1;
{Вибір квітів}
GoToXY (32,10); Textcolor (men [1]); writeln ('Key');
GoToXY (32,11); Textcolor (men [2]); writeln ('About program');
GoToXY (+32,12); Textcolor (men [3]); writeln ('Play');
GoToXY (32,13); Textcolor (men [4]); writeln ('Results');
GoToXY (32,14); Textcolor (men [5]); writeln ('Exit');
ch: = readkey; {Вибір напрямку пересування елементів меню}
if (ord (ch) = 80) then {Якщо вниз тоді поточний стає білим, а нижній стає зеленим}
begin
for i: = 1 to 5 do
begin
if (men [i] = 15) and (Strok <> 5) then
begin
men [strok]: = 2;
men [strok +1]: = 15;
end
else strok: = strok +1;
end;
end;
if ord (ch) = 72 then {Якщо вгору, то поточний білим, а верхній зеленим}
begin
for i: = 1 to 5 do
begin
if (men [i] = 15) and (Strok <> 1) then
begin
men [strok]: = 2;
men [strok-1]: = 15;
end
else strok: = strok +1;
end;
end;
if ord (ch) = 13 then {Якщо натиснуто ENTER}
begin
for i: = 1 to 5 do
begin
if men ...
