Внутриблочные переменные не могут иметь те же имена, что и переменные из блока верхнего уровня - Pascal ABC - Ответ 13053949

program matr;
 
uses 
crt;
 
const
  n = 5; 
  m = 5;
 
var
  i, j, a, tmp, k: integer; 
  l: array [1..50, 1..50] of integer;
 
procedure SortSliv;
 
begin
  k := 0; 
  for var i := 1 to n do 
  begin
    for var j := 1 to m do 
    begin
      if l[i, j] = 0 then 
        inc(k); 
    end; 
    writeln('В‚ ', i, '-ой строке количество нулей= ', k); 
    k := 0; 
  end; 
  for var i := 1 to n do 
  begin
    for var i := 1 to (m - 1) do 
      for var j := i + 1 to m do 
      begin
        if (l[i, i] > l[i, j]) then 
        begin
          tmp := l[i, j]; 
          l[i, j] := l[j, i]; 
          l[i, i] := tmp; 
        end; 
      end; 
  end; 
  writeln; 
  writeln('Отсортированная матрица строк по убыванию:'); 
  for var i := 1 to n do 
  begin
    for var j := 1 to m do 
      write(l[i, j]:4); 
    writeln
  end; 
end;
 
begin
  writeln('Исходная матрица:'); 
  randomize; 
  for var i := 1 to n do 
  begin
    for var j := 1 to m do 
    begin
      l[i, j] := random(-10 + (0)); 
      write(l[i, j]:4); 
      a := a + n; 
    end; 
    a := a + m; 
    writeln; 
  end; 
  writeln; 
  SortSliv; 
end.