В матрице А поменять местами две строки с заданными номерами. Сформировать из полученной матрицы нижнюю треугольную матрицу С — Pascal(Паскаль)

Файл

5
10 11 12 13 14
 9  8 11 25 16
18  5 10 33 20
20 12 15 20 25
31 14 26 65 23

uses crt;
var f,g:text;
    a,c:array[1..20,1..20] of integer;
    n,i,j:byte;
    nf,ng:string;
begin
clrscr;
write('Имя файла для чтения: ');
readln(nf);
nf:=nf+'.txt';
assign(f,nf);
{$I-} reset(f);  {$I+}
if IOResult <> 0 then
 begin
  writeLn('Файл ',nf,' не найден!');
  writeLn('Работа программы завершена. Нажмите ENTER');
  readln;
  exit;
 end;
write('Имя файла для записи: ');
readln(ng);
ng:=ng+'.txt';
assign(g,ng);
rewrite(g);
read(f,n);
writeln('Матрица А:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    read(f,a[i,j]);
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln;
close(f);
writeln('Нижняя треугольная матрица С:');
writeln(g,'Niznyaya treugolnaya matrica C:');
for i:=1 to n do
 begin
  for j:=1 to n do
   begin
    if j<=i then c[i,j]:=a[i,j]
    else c[i,j]:=0;
    write(c[i,j]:4);
    write(g,c[i,j]:4);
   end;
  writeln;
  writeln(g);
 end;
close(g);
write('Нижняя треугольная матрица С записана в файл ',ng);
readln
end.

Niznyaya treugolnaya matrica C:
  10   0   0   0   0
   9   8   0   0   0
  18   5  10   0   0
  20  12  15  20   0
  31  14  26  65  23