Исправить ошибки в коде

Var q:Array[1..m]
w:array[1..n] of integer;
v,i :integer;
Read(a);
Read(b);
begin

v:=0
for i:=1 to n do
for  i:= 1 to m do
begin
if q[i] mod 2 = 0 then 
v:=v+1;
end;
if v = m then
writeln('Есть строка состоящая только из нечетных элементов');
end.

v:=0
for i:=1 to n do
for  i:= 1 to m do
begin
if (q[i] mod a = 0) or (q[i] mod b = 0) then
v:=v+1;
end;
if v = m then
writeln('Есть строка состоящая только из элементов кратных числу a или b');
end.

v:=0
for i:=1 to n do
for  i:= 1 to m do
begin
if q[i] < 0 then
v:=v+1;
end;
if v = m then
writeln('Есть строка состоящая только из отрицательных чисел');
end.

const max=20;
var q:array[1..max,1..max]of integer;
    m,n,i,j,a,b,kn,kk,ko,sn,sk,so :integer;
begin
repeat
write('Количество строк от 2 до ',max,' m=');
readln(m);
until m in [2..max];
repeat
write('Количество столбцов от 2 до ',max,' n=');
readln(n);
until n in [2..max];
writeln('Введите 2 числа для проверки кратности');
readln(a,b);
writeln('Введите элементы матрицы построчно через пробелы, в конце строк Enter');
for i:=1 to m do
for j:=1 to n do
read(q[i,j]);
sn:=0;
sk:=0;
so:=0;
for i:=1 to m do
 begin
  kn:=0;
  kk:=0;
  ko:=0;
  for j:=1 to n do
   begin
    if odd(q[i,j]) then inc(kn);
    if (q[i,j] mod a=0) or (q[i,j] mod b=0) then  inc(kk);
    if q[i,j]<0 then inc(ko);
   end;
  if kn=n then sn:=1;
  if kk=n then sk:=1;
  if ko=n then so:=1;
 end;
if sn=1 then writeln('Есть строка, состоящая только из нечетных элементов')
else writeln('Нет строки, состоящей только из нечетных элементов');
if sk=1 then writeln('Есть строка, состоящая только из элементов кратных числу ',a,' или ',b)
else writeln('Нет строки, состоящей только из элементов кратных числу ',a,' или ',b);
if so=1 then writeln('Есть строка, состоящая только из отрицательных чисел')
else writeln('Нет строки, состоящей только из отрицательных чисел');
end.

for i:=1 to n do
Begin
For j:=1 to m do (нельзя использовать одинаковые итераторы)
Begin
( тело цикла)
End;
Твоё условие ;
v:=0;
End;