Удалить из матрицы строки с нулевыми элементами выше главной диагонали

begin
  writeln('Введите количество строк и столбцов в матрице (не менее 1 и не более 10)');
  read(N, M);
  while (N < 1) or (N > 10) or (M < 1) or (M > 10) do
  begin
    writeln('Ошибка. Введите количество строк и столбцов в матрице (не менее 1 и не более 10)');
    read(N, M);
  end;
  k := 0;
  for i := 1 to N do
  begin
    for j := 1 to M do
    begin
      writeln('Введите элемент ', i, '-й строки ', j, '-го столбца матрицы');
      read(a[i, j]);
      if (j > i) and (a[i, j] = 0) then l[i] := i;
    end;
    if l[i] = i then k := k + 1;
  end;
  N1 := N;
  i := 1;
  while N > N1 - k do
  begin
    if i >= l[i] then begin
      for i := 1 to N do
        for j := 1 to M do 
          a[i, j] := a[i + 1, j];
      N := N - 1;
      end
    else i := i + 1;  
  end;
  for i := 1 to N1 - k do
    for j := 1 to M do
      writeln('Элемент ', i, '-й строки ', j, '-го столбца преобразованной матрицы равен ', a[i, j]);
end.

var a:array[1..10,1..10] of integer;
    n,m,i,j,k,s:integer;
begin
repeat
writeln('Введите размер матрицы от 2 до 10');//матрица квадратная
readln(n);
until n in [2..10];
writeln('Введите элементы матрицы целые числа в том числе ноли');
for i := 1 to n do
for j := 1 to n do
 begin
  write('a[',i,',',j,']=');
  readln(a[i,j]);
 end;
writeln('Исходная матрица');
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:5);
  writeln;
 end;
i:=n-1;//начнем с предпоследней строки,
       // в последней нет элемента выше главной дагонали
s:=0; //фиксация удаления строки
m:=n;//запомним количество строк
while i>0 do//пока не верх
 begin
  j:=i+1; //будем смотреть элементы за главной диагональю
  while(j<=n)and(a[i,j]<>0) do inc(j);//если не 0, вперед
  if j<=n then//если есть 0
   begin
    s:=1;//фиксируем
    for k:=i to M-1 do//сдвинем нижние строки на 1 вверх
    for j:=1 to N do
    a[k,j]:=a[k+1,j];
    dec(m)//уменьшим кол. строк
   end;
  dec(i);//следующая строка выше
 end;
if s=0 then write('Нет нолей выше главной диагонали')
else
 begin
  writeln('Удаление строк с нолями выше главной диагонали');
  for i:=1 to m do
   begin
    for j:=1 to n do
    write(a[i,j]:5);
    writeln;
   end;
 end;
end.