Заменить нулями все элементы матрицы, расположенные на побочной диагонали и выше

uses crt;
const n=4;
type mas=array[1..n,1..n] of integer;
procedure readfile(var f:text;var a:mas);
var s:string;
    i,j:byte;
begin
write('Имя файла для чтения: ');
readln(s);{вводим без расширения, например file1}
s:=s+'.txt';
assign(f,s);
{$I-} reset(f);  {$I+}
if IOResult <> 0 then
 begin
  writeLn('Файл ',s,' не найден!');
  writeLn('Работа программы завершена. Нажмите ENTER');
  readln;
  exit;
 end;
for i:=1 to n do
for j:=1 to n do
read(f,a[i,j]);
close(f);
end;
procedure zamena(var a:mas);
var i,j:byte;
begin
for i:=1 to n do
for j:=1 to n-i+1 do
a[i,j]:=0
end;
procedure writefile(var f:text;a:mas;var s:string);
var i,j:byte;
begin
write('Имя для нового файла: ');
readln(s);
s:=s+'.txt';
assign(f,s);
rewrite(f);
for i:=1 to n do
 begin
  for j:=1 to n do
  write(f,a[i,j]:6);
  writeln(f)
 end;
close(f)
end;
 
var f:text;
    s:string;
    a:mas;
begin
readfile(f,a);
zamena(a);
writefile(f,a,s);
write('матрица прочитана, изменена и записана в файл ',s);
readln
end.