Определить, есть ли на главной диагонали матрицы элементы, равные 5

Program Z1;
Uses wincrt;
Var A: array[1..20,1..20] of integer;
    x_min, x_max, i, j, n, kolvo :integer;
 
Begin
 
  write('Введите размер массива ');
  readln(n);
  Writeln ('Диапазон случайных чисел');
  Write ('Минимальное ');
  Readln (x_min);
  Write ('Максимальное ');
  Readln (x_max);
 
 
  For i:= 1 to n do
    For j:= 1 to n do
      A[i,j]:=Random(x_max-x_min + 1) + x_min;
      Writeln;
      Writeln('Входной массив:');
      Writeln;
      For i:= 1 to n do
      Begin
        For j:= 1 to n do
        Write(a[i,j]:5);
        Writeln;
        Writeln;
      End;
 
  For i:= 1 to n do
    For j:= 1 to n do
      If (J = I) and (A[i,j]=5) then
        kolvo:=kolvo+1;
 
  If (kolvo=0) then
    writeln('В главной диагонали пятёрки отсутствуют')
  Else
    Writeln('Количество пятёрок в главной диагонали: ',kolvo);
 
End.

program Project2;
 
uses
  SysUtils;
 
Const
 n=5;
 
Var
 a:array [1..n,1..n] of real;
 i,j,k:integer;
 
begin
  // Ввод матрицы
  Writeln('Vvedite matricu: ');
  For i:=1 to n do
   For j:=1 to n do
    Read(a[i,j]);
  Readln;
 
  // Подсчет количества элементов
  k:=0;
  For i:=1 to n do
   If a[i,i]=5
    Then
     Inc(k);
 
  // Вывод ответа
  Writeln('Otvet: ',k);
  Readln;
end.

for i:=1 to n do
 for j:=1 to n do
  if i=j then 
   begin
    if a[i,j]=5 then inc(s);
   end;

const 
  nmax=100;
type
  Tmatrix=array[1..nmax,1..nmax] of integer;
var
  a:Tmatrix;
  i,j,k,n:integer;
begin
  write('Poryadok kvadratnoi matritsy:');
  readln(n);
  randomize;
  writeln('Ishodnaya matritsa:');
  for i:=1 to n do
    for j:=1 to n do
      begin
        a[i,j]:=random(6);
        write(a[i,j]:4);
        if j=n then
          writeln;
      end;
  writeln;
  k:=0;
  for i:=1 to n do
    if a[i,i]=5 then
      inc(k);
  if k<>0 then
    writeln('Kol-vo=',k)
  else
    writeln('Net takih elementov');
  readln
end.