В квадратной матрице найти сумму минимального и максимального элементов главной диагонали.

извиняюсь. забыл поставить ; в конце 4 строки

Const N = 10;Var A:array[1..n,1..n] of integeri,min,max,j: integer;BeginRandomize;For i:=1 to n do beginFor j:=1 to n do beginA[i,j]:= random(50);Write(a[i,j]:4);End;Writeln;End;Writeln;Max:=a[1,1]; min:=a[1,1]; For i:=1 to n do beginIf a[i,i] > max then max:= a[i,i];If a[i,i] < min then min:= a[i,i];End;Write(max,' ',min);End.