напишите программку, которая наполняет матрицу размером 7продолжение внизупрогу только для

Const   N = 7;Var   A:array[1..N,1..N] of integer;   i,j:integer;BeginFor i:= 1 to N do    Begin    For j:= 1 to N do        Begin        A[i,j]:=random(21)-10;        Write(A[i,j]:3,' ')        End;    WriteLn    End;WriteLn;For i:= 1 to N div 2+(N mod 2) do    Begin    For j:= 1 to N do        Begin        if (jlt;=N div 2+i)and(N div 2-i+(N mod 2)lt;j) then A[i,j]:=99;        Write(A[i,j]:3,' ')        End;    WriteLn;    End;For i:= (N div 2)+(N mod 2)+1 to N do    Begin    For j:= 1 to N do        Begin        if (i-N div 2-1lt;j)and(jlt;=N+N div 2+1-i) then A[i,j]:=99;        Write(A[i,j]:3,' ')        End;    WriteLn;    End;End.