Объясните каждую букву программного кода...

if (s[(x div 8)+1,(y div 8)]=0) then ...

if (key='d') and (s[(x div 8)+1,(y div 8)]=0) then ...

uses GraphABC; 
 
var 
s : array [,] of integer; 
i,x,y,vspeed : integer; 
game_end : boolean;
//Обработка нажатий клавиш 
procedure KeyPress(key: char); begin 
 
if (key='d') and (s[(x div 8)+1,(y div 8)]=0) then //Если нажата клавиша D… 
x:=x+8; //... А также есть свободное место, то передвигаемся на… 
//… клеточку вперед (значение x увеличивается на 8) 
 
if (key='a') and (s[(x div 8)-1,(y div 8)]=0) then //см. комментарий выше 
x:=x-8; 
 
if (key='w') and (vspeed=0) and (s[(x div 8),(y div 8)+1]=1) then //Если есть «занятая клеточка»…
vspeed:=-16; //… под ногами, то совершаем прыжок. 
 
end; 
 
procedure KeyDown(key: integer); begin 
if (key=vk_enter) then game_end:=true; //При нажатии ENTER… 
//значение переменной game_end равно true 
end;
//Гравитация 
procedure Gravity(); begin 
 
if vspeed=0 then begin //Если скорость прыжка равна нулю… 
if s[(x div 8),(y div 8)+1]=0 then y+=8; //… перемещаемся на «клеточку» вниз (падаем) 
end; 
 
if s[(x div 8),(y div 8)+vspeed]=0 then y+=vspeed; //Если сверху есть свободная клеточка, то… 
//… перемещаемся на vspeed вверх. 
 
if vspeed<>0 then //Если скорость прыжка не равна нулю (в нашем случае: меньше нуля)… 
vspeed+=2; //… то помаленьку ее сбавляем. 
 
end;
procedure Draw(); begin 
 
Redraw; 
LockDrawing; 
 
//Рисуем белый прямоугольник… 
setbrushcolor(clwhite); //… размером 640 на 480 
fillrectangle(0,0,640,480); 
 
 
setbrushcolor(clblack);//Рисуем черные стены… 
fillrectangle(0,192,640,224);//… по координатам… 
//… 0 – 640 по X; 192 – 224 по Y 
//(ВНИМАНИЕ! Данные манипуляции не делают стены осязаемыми, а всего лишь… 
//… создают их графический образ. 
 
setbrushcolor(clred); //Рисуем игрока по координатам… 
fillrectangle(x,y,x+8,y+8);//… x и y 
 
end;
Begin //начало программы 
 
//Указания значений для переменных 
game_end:=false; 
x:=0; //Стартовая позиция игрока по X 
y:=0; //Стартовая позиция игрока по Y 
 
//Создание массива 
s := new integer[200,200]; 
 
//Создание платформы, нарисованной в процедуре Draw 
for i:=0 to 79 do 
s[i,24] := 1; 
 
while game_end=false do begin //Создаем цикл… 
//… который прервется, если game_end = false 
 
//Рисование экрана 
Draw(); 
 
//Гравитация для игрока 
Gravity(); 
 
OnKeyPress:=KeyPress; //Обработка нажатий… 
OnKeyDown:=KeyDown; //… клавиш 
 
sleep(30); //Ждем примерно полсекунды, чтобы игра… 
//… работала с нормальной скоростью 
 
end;//конец цикла. 
 
end. //конец программы

uses graphABC;
var s: array [,] of integer;
speed,x,y: integer;
 
procedure move(key: integer);
begin
if (key = vk_d) and (s[(x div 8)+1,(y div 8)]=0) then begin x:=x+8; end;
if (key = vk_s) and (s[(x div 8),(y div 8)+1]=0) then begin y:=y+8; end;
if (key = vk_a) and (s[(x div 8)-1,(y div 8)]=0) then begin x:=x-8; end;
if (key = vk_w) and (s[(x div 8),(y div 8)-1]=0) then begin y:=y-8; end;
end;
 
procedure Draw();
begin
LockDrawing;
Redraw;
 
SetBrushColor(clBlack);
Rectangle(8,0,8+8,8);
 
SetBrushColor(clRed);
Rectangle(x,y,x+8,y+8);
end;
 
procedure update();
begin
while true do 
begin
OnKeyDown:=move;
Draw();
sleep(30);
end;
end;
begin
s:=new integer[200,200];
update();
end.

procedure Draw();
begin
SetBrushColor(clBlack);
Rectangle(8,0,8+8,8);
SetBrushColor(clRed);
Rectangle(x,y,x+8,y+8);
redraw;
end;
..............................
begin
LockDrawing;
s:=new integer[200,200];
update();
end.

if (key = vk_d) and (s[(x div 8)+1,(y div 8)]=0) then begin x:=x+8; end;
if (key = vk_s) and (s[(x div 8),(y div 8)+1]=0) then begin y:=y+8; end;
if (key = vk_a) and (s[(x div 8)-1,(y div 8)]=0) then begin x:=x-8; end;
if (key = vk_w) and (s[(x div 8),(y div 8)-1]=0) then begin y:=y-8; end;