Переписать положительные элементы главной диагонали матрицы в одномерный массив Y - Pascal ABC

Формулировка задачи:

Действующий код есть, но никак не получается сделать так, чтобы программа проскакивала отрицательные числа, вместо этого она выдаёт 0. Как это можно исправить?

Program SumPol;
Uses Crt;
Const   M=5;
        N=5;
Var A:  Array[1.. M, 1.. N] of Real;
P, I: 1.. M;
Q, J: 1.. N;
    B:  array[1..M] of Real;
S: Real;
Begin
ClrScr;
Write ('Введите размерность матрицы не более 5*5: ');
Readln(P, Q);
Writeln ('Введите элементы матрицы:');
For I:=1 to P do
For J:=1 to Q do
Begin
Write ('A[', I: 1, ', ',J: 1, ']=');
Readln (A[I, J])
End;
Writeln ('Контрольный вывод матрицы: ');
For I:=1 to P do
Begin
For J:=1 to Q do Write (A[I, J]: 4: 2, ' ': 3);
Writeln
End;

For I:=1 to P do
begin
For J:=1 to Q do
 
 If A[I,I]>0 Then B[I]:=A[I,I];
 write(B[I],' ');
 
end;
End.

Решение задачи: «Переписать положительные элементы главной диагонали матрицы в одномерный массив Y»

Листинг программы

program SumPol;
 
uses
  Crt;
 
const
  M = 5;
  N = 5;
 
var
  A: Array[1..M, 1..N] of Real;
  P, I: 1..M;
  Q, J: 1..N;
  B: array[1..M] of Real;
  S: Real;
 
begin
  ClrScr;
  Write('Введите размерность матрицы не более 5*5: ');
  Readln(P, Q);
  Writeln('Введите элементы матрицы:');
  for I := 1 to P do
    for J := 1 to Q do
    begin
      Write('A[', I:1, ', ', J:1, ']=');
      Readln(A[I, J])
    end;
  Writeln('Контрольный вывод матрицы: ');
  for I := 1 to P do
  begin
    for J := 1 to Q do Writeln(A[I, J]:4:2, ' ':3);
  end;
  
  
  for I := 1 to P do
    
    if A[I, I] > 0 Then 
    begin
      B[I] := A[I, I];
      write(B[I], ' ');
    end;
  
end

Объяснение кода листинга программы

Создается программа SumPol.
Используются единицы и нули для представления истинности и ложности в виде логических переменных.
Задаются константы M и N, которые представляют размерность матрицы.
Создается переменная A, которая представляет матрицу размером M на N.
Создаются переменные P и Q, которые представляют номер строки и столбца соответственно.
Создается переменная B, которая представляет одномерный массив для хранения положительных элементов главной диагонали.
Создается переменная S, которая представляет сумму элементов массива B.
Выводится приглашение на ввод размераности матрицы.
Выполняется чтение размераности матрицы.
Выводится приглашение на ввод элементов матрицы.
Выполняется чтение элементов матрицы.
Выводится контрольный вывод матрицы.
Выполняется вывод элементов матрицы в виде строки.
Выполняется вывод положительных элементов главной диагонали в виде строки.
Выполняется вывод суммы элементов массива B.
Выполняется цикл по строке матрицы.
Выполняется проверка условия A[I, I] > 0.
Если условие истинно, то копируется элемент A[I, I] в массив B.
Выводится значение элемента B[I].
Цикл по строке матрицы завершается.
Программа завершается.