[lxa85]

DiGer911. Я тут вашему коду некую читаемость придал.
Расставьте пожалуйста комментарии к программе.
В частности - какой end; что закрывает.
Какой скан код, к какой кнопке относится.
Напишите логику ее работы.

Код:

uses crt;
type 
	mas = array [1..9] of string[20];
const 
	stor: mas = ('1','2','3','4','5','6','7','8','9' );
var 
	i,k: byte;
	kod: char;
begin
	clrscr;
	writeln(' название программы');
	Kod:=' ';
	while kod<>#27 do 
	begin
		for i:=1 to 9 do 
		begin
			if I=K then 
			begin
				textbackground(1);
				textcolor(0);
			end
		else 
		begin
			textbackground(0);
			textcolor(15)
		end;
		gotoxy(1,i+1);
		write(stor[i]);
	end;

	kod:=readkey;
	if kod=#0 then
	begin
		kod:=readkey;
		if kod=#72 then
			if k>1 then 
			k:=k-1 
				else 
			k:=9;
	if kod=#0 then
	end;
	
	end;
end.


c:=readkey;
if c=#80 then
begin
gotoXY(10,whereY-1);
write(s);
end;
if c=#72 then
begin
gotoXY(10,whereY+1);
write(s);
end;

Вместо множественных if _ then используйте конструкцию case _ of.