Составить программу вычисления минимального элемента матрицы

program min_max;
const
   n: integer = 5;
type
   arr = array [1..n,1..n] of integer;
var
   c:arr;
   i,j: integer;
function MinMDiag (c:arr, sz:integer):integer;
 var
    min,i:integer;
 begin
    min := c[1,1];
    for i:= 2 to sz do
       if min > c[i,i] then min := c[i,i];
    MinMDiag := min;
 end;
function MaxSDiag (c:arr, sz:integer):integer;
 var
    max,i:integer;
 begin
    max := c[n,1];
    for i:= 2 to sz do
       if max < c[n-i+1,i] then max := c[n-i+1,i];
    MaxSDiag := max;
 end;
begin
   for i:= 1 to n do
    begin   
       for j:=1 to n do
        begin
           c[i,j] := random(99);
           write (c[i,j]:3);
        end;
        writeln;
    end;
   writeln('Минимальный элемент главной диагонали =', MinMDiag(c, n));
   writeln('Максимальный элемент побочной диагонали =', MaxSDiag(c, n));
   readkey;
end.