Пошаговая детализация

uses crt;
const m=5;
      n=10;
type mtr=array[1..m,1..n] of integer;
procedure matrix(var a:mtr);
var i,j:byte;
begin
writeln('Исходная матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=-5+random(21);
    write(a[i,j]:4);
   end;
  writeln;
 end;
end;
procedure obmen(var a:mtr);
var i,j,j1,k:byte;
    x:integer;
begin
j1:=0;
j:=1;
while(j<=n)and(j1=0) do
 begin
  k:=0;
  for i:=1 to m do
  if a[i,j]>0 then k:=k+1;
  if k=m then j1:=j;
  if j1=0 then j:=j+1;
 end;
if j1=0 then writeln('Нет столбца из положительных элементов')else
writeln('Первый столбец, содержащий только положителбные элементы, имеет номер ',j1);
if j1<2 then
 begin
  writeln('Обмена нет');
  readln;
  exit
 end;
for i:=1 to m do
 begin
  x:=a[i,1];
  a[i,1]:=a[i,j1];
  a[i,j1]:=x;
 end;
writeln('Обмен столбцов 1 и ',j1);
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:4);
  writeln
 end;
end;
 
var a:mtr;
begin
clrscr;
randomize;
matrix(a);
obmen(a);
readln
end.