Дан массив Х(N, N). Найти количество положительных элементов матрицы, лежащих на главной диагонали (элементы главной диагонали с индексами (1,1), (2,2) и т.д.) Паскаль

procedure TForm1.Button1Click(Sender: TObject); var   i, k : integer;   x : array [1..10,1..10] of Integer; begin   k := 0;   for i:=1 to 10 do   begin     x[i,i] := Random(100)-50;     if (x[i,i]>0) then       inc(k);   end;   Label1.Caption := 'Количество положительных элементов = ' + inttostr(k); end;