Помогите составить программу, пожалуйста 🙏

 program RandomMatrixEdgeSum; 
 
uses 
  SysUtils, Math; 
 
const 
  MinVal = 0; 
  MaxVal = 10; 
 
type 
  TIntMatrix = array of array of Integer; 
 
function CreateRandomMatrix(n: Integer; minVal, maxVal: Integer): TIntMatrix; 
var 
  i, j: Integer; 
begin 
  Randomize; 
  SetLength(Result, n, n); 
  for i := 0 to n - 1 do 
    for j := 0 to n - 1 do 
      Result[i][j] := Random(maxVal - minVal + 1) + minVal; 
end; 
 
procedure PrintMatrix(const matrix: TIntMatrix); 
var 
  i, j, n: Integer; 
begin 
  n := Length(matrix); 
  for i := 0 to n - 1 do 
  begin 
    for j := 0 to n - 1 do 
      Write(matrix[i][j]:4); 
    Writeln; 
  end; 
end; 
 
function SumEdgeElements(const matrix: TIntMatrix): Integer; 
var 
  n, i: Integer; 
  total: Integer; 
begin 
  n := Length(matrix); 
  total := 0; 
 
  // Суммируем первую и последнюю строки 
  for i := 0 to n - 1 do 
  begin 
    total := total + matrix[0][i];       // первая строка 
    total := total + matrix[n - 1][i];   // последняя строка 
  end; 
 
  // Суммируем первые и последние элементы остальных строк (без первой и последней) 
  for i := 1 to n - 2 do 
  begin 
    total := total + matrix[i][0] + matrix[i][n - 1]; 
  end; 
 
  Result := total; 
end; 
 
var 
  n, edgeSum: Integer; 
  matrix: TIntMatrix; 
  input: string; 
  continueProgram: Boolean; 
 
begin 
  continueProgram := True; 
  while continueProgram do 
  begin 
    Write('Введите размер квадратной матрицы (целое число > 1): '); 
    Readln(input); 
    if not TryStrToInt(input, n) or (n <= 1) then 
    begin 
      Writeln('Размер должен быть целым числом больше 1.'); 
      Continue; 
    end; 
 
    matrix := CreateRandomMatrix(n, MinVal, MaxVal); 
 
    Writeln('Сгенерированная матрица:'); 
    PrintMatrix(matrix); 
 
    edgeSum := SumEdgeElements(matrix); 
    Writeln('Сумма крайних элементов матрицы: ', edgeSum); 
 
    Write('Хотите продолжить? (да/нет): '); 
    Readln(input); 
    input := LowerCase(Trim(input)); 
    if not ((input = 'да') or (input = 'д') or (input = 'yes') or (input = 'y')) then 
    begin 
      Writeln('Программа завершена.'); 
      continueProgram := False; 
    end 
    else 
      Writeln(StringOfChar('-', 40)); 
  end; 
end.