Не работает программа, выручайте

[SRGRuslan]

Вот задание:
а) В матрице заменить заданным вектором строки, которые содержат хотя бы один ненулевой элемент;
б) в полученной матрице найти сумму элементов столбцов с нечетными номерами.
Вот и сама программа которая по неизвестным мне причинам не робит.... Помогите разобраться

Program SRG;
uses crt;
const n=5;
m=5;
var b:array[1..n,1..m] of integer;
v:array[1..m] of integer;
i,j, zero:integer;
begin {Шаг первый}
for i:=1 to n do begin
zero:=0;
for j:=1 to m do if b[i,j]=0 then zero:=1;
{Проверка того что в i-ой строке есть хотя бы 1 ноль}
if zero=1 then
for j:=1 to m do b [i,j]:=v[j];
{если есть ноль то заменяем элементы}
end;
{Шаг второй}
j:=1;
while (j<=m) do begin
sum:=0;{И вот здесь у нас ошибка 3 Неизветный индефикатор, ну как так?? Люди добрые помогите разобраться}
for i:=1 to n do sum:=sum+b[i,j]; {Считаем сумму элементов j-го столбца*}
writeln(j,' ',sum); {выводим сумму на экран**}
j:=j+2;
end;
end.

[OlegVE]

Добавьте в var следующее sum: integer;
Больше Вам нет чем помочь... Вы даже двух страниц учебника по Pascal не прочитали