Опешите программный код, очень надоbegin//началоif (a[h,v]=0) or (a[h-1,v]amp;lt;amp;gt;0)

Вот верно отформатированный код. Пока код не отформатирован, понять его очень сложно, потому программеры всегда сразу пишут код с нужным форматированием. Начинающим писать программки тоже нужно всегда следовать этому же принципу.

if (a[h,v]=0) or (a[h-1,v]lt;gt;0) then eng+=1;
if a[h,v]lt;gt;0 then
  if a[h-1,v]=0 then begin
    a[h-1,v]:=a[h,v];
    a[h,v]:=0;
  end;

Наличие переменных вида a[h,v] позволяет сделать вывод, что фрагмент программки что-то делает с элементами двумерного массива "а". При этом, эдементы все время встречаются парами вида a[h,v] и a[h-1,v]. Если a[h,v] - некоторый текущий элемент в строке h и столбце v, то a[h-1,v] - это элемент в предшествующей строке и том же столбце. Для краткости будем нарекать элемент a[h,v] ТЕКУЩИЙ, а элемент a[h-1,v] - Предыдущий, предполагая просмотр по столбцам.
Сейчас кусок программки можно заменить псевдокодом.

ЕСЛИ (ТЕКУЩИЙ=0) Либо (Предыдущий

Это вроде паскаль , мог бы и в переводчике перевести хз

begin

// начало , типо открыл вкладку )) хз

if (a[h,v]=0) or (a[h-1,v]lt;gt;0) then

// если массив a[h,v] равен 0  либо массив a[h-1,v] не равен 0то 

eng+=1;

// eng = eng + 1 (вверху просто упрощённая запись)

if a[h,v]lt;gt;0 then

// еслиa[h,v] lt;gt; 0 то 

if a[h-1,v]=0 then

// если a[h-1,v] = 0 то (условие в условие типо)

begin//начало

a[h-1,v]:=a[h,v];

// a[h-1,v] присваеваем a[h,v];

a[h,v]:=0;

// так же a[h,v]:=0;

end;//конец , идёт в вязке с оператором begin ))
end;//конец

полагаюсь именно так для тебя надобно было это сделать , задавай вопросы если не верно