Мне кажется, там допущены ошибки в задачнике

Спасибо! Я посмотрел. Никакого криминала нет. Надо только понять, что в этих задачах происходит "встречное" заполнение матриц по разным правилам: сверху-вниз (верхняя половина) и снизу-вверх (нижняя половина) Думаю, что Вы поймете, взглянув еще раз на условие. Предметом обсуждения там может быть такой вопрос: что делать, если число строк нечетное. Возможные варианты решения: 1)договариваемся, что n - обязательно четное; 2) если допускается нечетное n, то договариваемся, что на средней строке действует "верхнее правило" или "нижнее правило". Вот и все!

Привожу текст программы для задачи 75
Const n=5;
Var X: array[1..n,1..n] of integer; i,j:integer;
begin
// заполнение матрицы нулями
    for i:=1 to n do for j:=1 to n do X[i,j]:=0;
// заполнение верхней половины
    for i:=1 to n div 2 do
       for j:= i to n-i+1 do
       X[i,j]:=1;
//заполнение нижней половины
    for j:=1 to n do X[n,j]:=j;
    for i:=n-1 downto n div 2 +1 do
       for j:=i downto 1 do
       X[i,j]:=X[i+1,j+1];
    for i:=1 to n do
    begin
      for j:=1 to n do
           write (X[i,j]:3);
      writeln
    end
end.
Проверьте на компьютере!