Program a8162;
uses crt;
const n=2;
var a:array[1..n,1..n] of integer;
      i,j,k,q,d:integer;
BEGIN
clrscr;
  begin
    for j:=1 to n do
      begin
        write('Введите a[',i,',',j,']');
        readln(a[i,j]);
      end;
    writeln;
  end;
writeln( 'Вы ввели');
for i:=1 to n do
  begin
    for j:=1 to n do
      write(a[i,j]:3);
    writeln;
  end;
for i:=2 to n do
  begin
    for j:=1 to n do
      if a[i,j]=0 then k:=j;
        for q:=1 to n do
          begin
            d:=a[k,q]; a[k,q]:=a[i,q];a[i,q]:=d;
          end;
  end;
writeln('Новая матрица');
for i:=1 to n do
  begin
    for j:=1 to n do
      write(a[i,j]:3);
    writeln;
  end;
readln;
END.