Подтверждение подлинности объектов и субъектов информационной системы.

Если элемент стоит выше главной диагонали, то его номер столбца больше, чем номер строки.
Программа будет такая:
PROGRAM Matrix77
var A: array [1..7][1..7] of real; // Объявляем переменные
var i, j: integer
BEGIN
crt;
for i:= 1 to 7 do
begin
for j:=1 1 to 7 do read (A[i][j]); // Вводим начальный массив
readln;
end;
for i:= 1 to 7 do
begin                     // Проверяем, что элемент выше диагонали
for j:=1 1 to 7 do if j > i then A[i][j]:=0; // Обнуляем его
end;
for i:= 1 to 7 do
begin
for j:=1 1 to 7 do write (A[i][j]); // Выводим конечный массив
writeln;
end;
END.

Program pr;
uses crt;

Var mas:array[1..5, 1..5] of integer;
N, i, j, buf:integer;

Begin

N:=5;
   Writeln('Введите элементы матрицы'); 
      for i:=1 to N do     
        for j:=1 to N do     
            readln(mas[i,j]);              

Writeln();   
Writeln('Исходная матрица');   
  for i:=1 to N do   
     Begin   
        for j:=1 to N do     
                 Write(mas[i,j], ' ');           
       Writeln();   
     end;      

{Объмен}   
 
  for j:=1 to N do     
      Begin       
        buf:=mas[N,j];       
        mas[N,j]:=mas[1,j];       
        mas[1,j]:=buf     
      end;               

Writeln();   
Writeln('Результирующая матрица');   

for i:=1 to N do   
   Begin     
       for j:=1 to N do     
           Write(mas[i,j], ' ');          
       Writeln();   
    end;    
 
readln;
end.