Напишите комментарии к каждой строчке

else - иначе

Так и быть, напишу:

program primer; {Указываем название программы (primer)}
var m,n:integer; {Объявляем 2 целочисленных переменных m и n}
begin {Начало программы }
readln(m,n); {Читаем значения m и n (ввод) }
if m<>n then {Если m не равен n, тогда}
begin {Начало блока}
if m>n then {Если m больше n, тогда}
n:=m {n присваиваем значение m}
else {иначе (m меньше n) }
m:=n; {m присваиваем значение n }
end {Конец блока}
else {Иначе (m и n равны) }
begin {Начало блока}
m:=0; {m присваиваем значение 0}
n:=0; {n присваиваем значение 0}
end; {Конец блока}
writeln(m,' ',n); {Вывод значений m и n через пробел}
end. {Конец программы}

PS: В следующий раз текст программы выкладывай, а не картинку.

end. - конец программы

begin - начало

Народ, чё, поможем человеку, а? С миру по строчке. . Вот, например,
m:=0; - сделать m равным 0

Тебе лень переписать текст с экрана, почему нам должно быть не лениво к каждой строчке комментарии писать? Это высшая форма неуважения к людям с твоей стороны.

В комментариях надо писать то, что непонятно ко коду.

Для вашей программы достаточно двух комментариев:
1. перед вторым if: замена мининимального числа на максимальное
2. перед присвоением 0: когда оба числа равны, обнулим их

Правила хорошего тона требуют добавить после program следующую информацию:
1. автор
2. краткое описание задачи
3. дату написания