Ошибка времени выполнения: Индекс находился вне границ массива - PascalABC.NET (25741)

const n=4;
const m=5;
var a:array[1..10,1..10] of integer;
    i,j,x,z:integer;
 begin
 writeln ('Isxodniy massiv:');
  randomize;
   for i:=1 to n do
    begin
     for j:=1 to m do
      begin
      a[i,j]:=random(16)-5;  
      write (a[i,j]:4);
      end;
     writeln;
    end;
  for i:=1 to n do
   begin
    for j:=1 to m do
     if a[i,j]=0 then z:=j;
   end; 
  writeln (z);
  for i:=1 to n do
   begin
    x:=a[i,1];
    a[i,1]:=a[i,z];
    a[i,z]:=x;
   end;
  writeln ('Poluchenniy massiv:');
  for i:=1 to n do
   begin
    for j:=1 to m do 
     begin
     write (a[i,j]:4);
     end;
    writeln;
   end;
  writeln;
 end.