В матрице 5 на 5 обнулить все элементы,лежащие выше главной диагонали

for i:=1 to n-1 do
for j:=i+1 to n do
a[i,j]:=0;

PROGRAM IZ_TIPOVIK_v1;
TYPE DVUM=array[1..5,1..5] of real;
VAR A,B:DVUM;
    i,j:integer;
    fp1,fp2:text;
PROCEDURE ST(VAR D:DVUM; VAR E:DVUM);
VAR n,v:integer;
Begin
  FOR n:=1 TO 4 DO
   begin
    FOR v:=n+1 TO 5 DO
      E[n,v]:=0;
   end;
end;
BEGIN
  ASSIGN(fp1, 'isdan.pas');
  ASSIGN(fp2, 'vdan.pas');
  RESET(fp1);
  REWRITE(fp2);
  writeln(fp2,' ':25, 'ђ…‡“‹њ’Ђ’');
  FOR i:=1 TO 5 DO
   begin
    FOR j:=1 TO 5 DO
     read(fp1, A[i,j]);
   end;
     ST(A,B);
  FOR i:=1 TO 5 DO
   begin
    FOR j:=1 TO 5 DO
     write(fp2, A[i,j]:2:2,' ');
     writeln(fp2);
   end;
  close(fp1);
  close(fp2);
END.

PROGRAM IZ_TIPOVIK_v1;
const n=5;
TYPE DVUM=array[1..n,1..n] of real;
VAR A:DVUM;
    i,j:integer;
    fp1,fp2:text;
PROCEDURE ST(VAR E:DVUM);
VAR i,j:integer;
Begin
  FOR i:=1 TO n-1 DO
   begin
    FOR j:=i+1 TO n DO
      E[i,j]:=0;
   end;
end;
BEGIN
  ASSIGN(fp1, 'isdan.pas');
  ASSIGN(fp2, 'vdan.pas');
  RESET(fp1);
  REWRITE(fp2);
  writeln(fp2,' ':25, 'ђ…‡“‹њ’Ђ’');
  FOR i:=1 TO n DO
   begin
    FOR j:=1 TO n DO
     read(fp1, A[i,j]);
   end;
     ST(A);
  FOR i:=1 TO n DO
   begin
    FOR j:=1 TO n DO
     write(fp2, A[i,j]:2:2,' ');
     writeln(fp2);
   end;
  close(fp1);
  close(fp2);
END.