Задана матрица a(5x5) Сформировать матрицу b(4x4) путем вычеркивания из матрицы a третьей строки и третьего столбца. Делфи

var  f1, f2, i, j: integer;  a, b: array [1..5,1..5] of integer; begin for i := 1 to 5 do begin for j := 1 to 5 do read(a[i][j]); readln; end; f1 := 0; f2 := 0; for i := 1 to 5 do begin if (i = 3) then  continue else inc(f1); f2 := 0;  for j := 1 to 5 do    if (j = 3) then continue else begin inc(f2); b[f1][f2] := a[i][j]; end; end; end.