Переставить строки или столбцы матрицы таким образом, чтобы диагональные элементы стали ненулевыми.

program zmas;
uses crt;
var
b:array[1..10] of integer;
a:array[1..10,1..10] OF integer;
n,                              {size of matrix}
i,iz,jz,j,m:integer;              {indexs rov, culumn}
key:char;
flag:boolean;
 
{=====================output==========================}
procedure output;
    begin
         for i:=1 to n do
          begin
            for j:=1 to n do
            write( a[i,j], ' ');
            writeln;
          end;
    end;
{====================Change==================}
Procedure CH;
var k:integer;
    tmp:integer;
    flag:boolean;
begin
Flag:=false;
For i:=iz to n do
begin
  If a[i,jz]<>0 then
       begin
       flag:=true;
             for K:=1 to n do
                     begin
                       tmp:=a[iz,k];
                       a[iz,k]:=a[i,k];
                       a[i,k]:=tmp;
                     end;
         end;
 if flag=false then
     begin
       for i:=1 to iz-1 do
         If a[i,jz]<>0 then
            begin
                  flag:=true;
                    for K:=1 to n do
                       begin
                         tmp:=a[iz,k];
                         a[iz,k]:=a[i,k];
                         a[i,k]:=tmp;
                       end;
            end;
    end;
end;
 if flag=false then
 writeln('Imposible');
 
 
end;
{==============input matrix=========================================}
procedure Inite;
begin
repeat
writeln('input size of matrix');
readln(n);
until n>0;
writeln('input component of matrix');
   for i:=1 to n do
   for j:=1 to n do
     begin
       write('a[',i,',',j,']=');
       readln (a[i,j]);
    end;
    writeln('Matrix');
    output;
end;
 
{===================generation element of matrix===========================}
procedure ran;
begin
randomize;
writeln('input size of matrix');
readln(n);
      for i:=1 to n do
           for j:=1 to n do
           a[i,j]:=random(5);
           output;
end;
{================im=================}
 procedure im;
   var k,l:integer;
   begin
   flag:=false;
   {l:=n*n/2;    }
   for j:=1 to n do
   begin
   I:=0;
   k:=0;
     repeat
     I:=i+1;
     if a[i,j]=0 then k:=k+1;
     if k=n then
        begin
        writeln('imposible');
        flag:=true;
        end;
    until i=n;
    if flag=true then break;
    end;
     for i:=1 to n do
   begin
   j:=0;
   k:=0;
     repeat
     j:=j+1;
     if a[i,j]=0 then k:=k+1;
     if k=n then
        begin
        writeln('imposible ');
        flag:=true;
        end;
    until j=n;
    if flag=true then break;
    end;
     end;
 
{======================search negativ element==============================}
 
 procedure Zero;
   begin
     for i:=1 to n do
     if a[i,i]=0 then
     begin
       iz:=i;
       jz:=i;
       CH;
 
       end;
   end;
 
 
{=========================================================================}
 
  begin
clrscr;
write('"1":input element of matrix');
writeln(' "2":randomaze element of matrix');
 
writeln(' For EXIT pres esc ');
writeln('==================================================');
  repeat
  writeln ('choose command 1-2 or ESC');
  key:=readkey;
  case key of
  '1':Inite;
  '2':ran;
  end;
  im;
  if flag=false then
   Begin
    Zero;
    writeln('=======Change matrix============');
    output;
   end;
   until key=#27;
end.