Який загальний вигляд команди циклу з передумовою в обджект паскал​

Const Sz = 1000; var   a: array [1..Sz] of integer;  a1: array [1..Sz] of integer;  a2: array [1..Sz] of integer;  a3: array [1..Sz] of integer;  M: integer;  N: integer;  i: integer;  k: integer;begin  read(M);  readln(N);  for k:=1 to N do begin    read(a[i]);    readln(a1[i]);    if (a[i]<>0) then a3[i]:=1 else a3[i]:=0;    end;  for k:=1 to N do begin  if(a3[i]<>0) then begin  for i:=1 to i do begin  if(a3[k]=0) then d[i]:=1;  if (a2[k]=i) then d[k]:=0;   end;   writeln(a3[i])  end;end;end.
вроде так

// PascalABC.NET 3.2, сборка 1356 от 04.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var m:=ReadInteger('Количество строк в матрице:');
  var n:=ReadInteger('Количество столбцов в матрице:');
  Writeln('*** Исходная матрица[',m,',',n,'] ***');
  var a:=MatrRandom(m,n,-50,50);
  a.Println(4);
  for var i:=0 to m-1 do
  for var j:=0 to n-1 do
    if a[i,j].IsEven then a[i,j]:=1;
  Writeln('*** Результирующая матрица[',m,',',n,'] ***');
  a.Println(4);
end.

Пример
Количество строк в матрице: 6
Количество столбцов в матрице: 9
*** Исходная матрица[6,9] ***
  23 -23 -25  38  40  38  50  45 -35
 -41  31   2  30  37 -30  -9  -8 -28
 -12  20 -20  32  29   7  19  23  46
 -48 -21 -27  19  10 -17 -20 -27 -47
 -39 -11  19 -23   9   6  29 -24 -14
   2  -7  37 -22  38  23   5 -33  37
*** Результирующая матрица[6,9] ***
  23 -23 -25   1   1   1   1  45 -35
 -41  31   1   1  37   1  -9   1   1
   1   1   1   1  29   7  19  23   1
   1 -21 -27  19   1 -17   1 -27 -47
 -39 -11  19 -23   9   1  29   1   1
   1  -7  37   1   1  23   5 -33  37