В разреженной матрице перед последней строчкой, вставить строчку - Pascal ABC

var a:array of array of integer; i,j:integer;
begin
 SetLength(a,10);
 for i:=Low(a) to High(a) do begin SetLength(a[i],10);Write(i:10,'|');
  for j:=Low(a[i]) to High(a[i]) do begin
    a[i,j]:=Random(2); Write(a[i,j]:5);
  end; Writeln;
 end; Writeln;
 
 SetLength(a,11); SetLength(a[High(a)],10);
 for i:=Low(a[0]) to High(a[0]) do begin a[High(a),i]:=a[High(a)-1,i]; a[High(a)-1,i]:=0; end;
 a[High(a)-1,0]:=1; a[High(a)-1,High(a[0])]:=1;
 
 
 for i:=Low(a) to High(a) do begin Write(i:10,'|');
  for j:=Low(a[i]) to High(a[i]) do begin
    Write(a[i,j]:5);
  end; Writeln;
 end; Writeln;
 
end.