Здравствуйте, Алексеевская Валентина Александровна!
т.к. из примера не понятно, должны ли строки чередоваться вплоть до самой последней строки матрицы или же только 1-ая и 3-яя строки должны содержать в себе отличную от остальных строк последовательность элементов, я привожу 2 варианта программы.

в первом варианте только 1-ая и 3-яя строки содержат в себе монотонно возрастающую последовательность элементов.
во втором варианте строки с монотонно увеличивающимейся последовательностью элементов чередуются со строками с монотонно уменьшающейся последовательностью элементов вплоть до самой последней строки матрицы.

Приложение:
-----------------------вариант №1
program m;
var ii,jj,i,j,n:integer;
a:array[1..20,1..20]of integer;
begin
writeln('Vvedite poryadok matrixi:');
write('n=');
readln(n);
writeln('Rezultat:');
for i:=1 to n do
for j:=n downto 1 do
a[i,j]:=n+1-j;

for i:=1 to n do
begin
a[1,i]:=i;
a[3,i]:=i;
end;

ii:=0;
while ii<n do
begin
ii:=ii+1;
jj:=0;
while jj<n-1 do
begin
jj:=jj+1;
write(a[ii,jj]:3);
end;
jj:=jj+1;
writeln(a[ii,jj]:3);
end;
writeln;
readln;
end.

--------------------------вариант №2
program m;
var ii,jj,i,j,n:integer;
a:array[1..20,1..20]of integer;
begin
writeln('Vvedite poryadok matrixi:');
write('n=');
readln(n);
writeln('Rezultat:');
i:=2;
while i<=n do
begin
for j:=n downto 1 do
a[i,j]:=n+1-j;
i:=i+2;
end;

i:=1;
while i<=n do
begin
for j:=1 to n do
a[i,j]:=j;
i:=i+2;
end;

ii:=0;
while ii<n do
begin
ii:=ii+1;
jj:=0;
while jj<n-1 do
begin
jj:=jj+1;
write(a[ii,jj]:3);
end;
jj:=jj+1;
writeln(a[ii,jj]:3);
end;
writeln;
readln;
end.