Нужна блок-схема

program prog;
 
label
  SKIP_LABEL;
 
const
  n = 5;
 
var  
  i, j: Integer;
  matrix: array[1..n, 1..n] of Integer;
  
begin
  for i:= 1 to n do begin
    for j:= 1 to n do begin
      Write('[', i, ',', j, ']: ');
      ReadLn(matrix[i,j]);
    end;
  end;
 
  WriteLn;
  
  for i:= 1 to n do begin
    for j:= 1 to n do 
      Write(matrix[i,j]: 7);
    WriteLn;
  end;
 
  WriteLn;
  
  for i:= 1 to n do begin
    for j:= 1 to n do 
      if matrix[i,j] <> 0 then
        goto SKIP_LABEL;
        
      WriteLn(i);
      
  SKIP_LABEL:;
  end;    
end.

program prog;
const  n = 5;
var i,j,k,z: Integer;
    matrix: array[1..n, 1..n] of Integer;
begin
for i:= 1 to n do
 begin
  for j:= 1 to n do
   begin
    Write('[', i, ',', j, ']: ');
    ReadLn(matrix[i,j]);
   end;
  end;
 for i:= 1 to n do
  begin
   for j:= 1 to n do
   Write(matrix[i,j]: 7);
   WriteLn;
  end;
k:=0;
writeln('Номера строк из нолей');
for i:= 1 to n do
 begin
  z:=0;
  j:=1;
  while(j<=n)and(z=0)do
  if matrix[i,j] <> 0 then z:=1
  else j:=j+1;
  if z=0 then
   begin
    write(i,' ');
    k:=1
   end;
 end;
if k=0 then write('Таких строк нет');
end.