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

огромное спасибо,дай бог тебе здоровья

var f1, f2, i, j: integer; a, b: array [1..5,1..5] of integer;beginfor i := 1 to 5 dobeginfor j := 1 to 5 doread(a[i][j]);readln;end;f1 := 0;f2 := 0;for i := 1 to 5 dobeginif (i = 3) then continueelseinc(f1);f2 := 0; for j := 1 to 5 do   if (j = 3) thencontinueelsebegininc(f2);b[f1][f2] := a[i][j];end;end;end.