Задача в паскале

[Ebon]

Дана задача: Даны матрица А размером М х М и вектор В, состоящий из М элементов. Вектор В умножить на 20, если наибольший элемент матрицы А (в предположении, что такой элемент единственный) находится на главной диагонали, и на 0,5 - в противном случае.
Написал программу:

Program abc;
const m=20;
var
i , j, q: integer;
x, y: real;
a: array [1..m, 1..m] of real;
b: array [1..m] of real;
begin
readln(a[i,j]);
if i=j then
for q:=1 to m do
b[q]:=b[q]*20
else for q:=1 to m do
b[q]:=b[q]*0.5;
writeln('b=',b[q]);
end.

Но в ответе всегда 0 получается, помогите отредактировать.