Обнуление и смещение в начало строки элементов квадратной матрицы (готовый код, найти косяк)

uses crt;
const n=10;
//-------------------------------------------------------
procedure FillArray (var mas:array[1..n, 1..n] of integer);
var i,j:integer;
begin
randomize;
for i:=1 to n do
    begin
     for j:=1 to n do
          mas[i,j]:=random(n*2)-n;
    end;
end;
//-------------------------------------------------------
procedure PrintArray (var mas:array[1..n, 1..n] of integer);
var i,j:integer;
begin
for i:=1 to n do
begin
     for j:=1 to n do
          write (mas[i,j]:4);
writeln;
end;
end;
//-------------------------------------------------------
procedure ZerroAndShift (var mas:array[1..n, 1..n] of integer);
var i,j,s:integer;
 
begin
for j:=1 to n do
    begin
    for i:=1 to n do
        begin
        if mas[i,j]>0 then
           begin
           mas[i,j]:=0;
           s:=i;
                for i:=s-1 downto 1 do
                begin
                     mas[i,j]:=mas[i+1,j];
                     mas[1,j]:=0;
                end;
           end;
        end;
    end;
end;
 
//-------------------------------------------------------
var
mas:array[1..n, 1..n] of integer;
i,j:integer;
 
begin
clrscr;
FillArray(mas);
PrintArray(mas);
ZerroAndShift(mas);
PrintArray(mas);
readln;
end.

procedure ZerroAndShift (var mas:array[1..n, 1..n] of integer);
var i,j,s:integer;
begin
for i:=1 to n do
 begin
  j:=1;
  while j<=n do
  if mas[i,j]>0 then
   begin
    if j=1 then mas[i,j]:=0
    else
     begin
      for s:=j downto 2 do
      mas[i,s]:=mas[i,s-1];
      mas[i,1]:=0;
      j:=j+1;
     end;
   end
  else j:=j+1;
 end;
end;