Поменять местами столбец матрицы с номером один и первый из столбцов, содержащий только положительные элементы

uses crt;
const
  str=4;{количество строкб изменишь на нужное, а то 5х10 долго нажимать надо))))}
  sto=4;{количество столбцов}
var
  a:array [1..str,1..sto] of integer;
  i,j,num,temp:integer;
begin
  num:=0;
  {заполняем и выыводим массив}
  writeln('Исходная матрица:');
  writeln('------------------');
  for i:=1 to str do
  begin
    for j:=1 to sto do
    begin
      a[i,j]:=random(8)-4;
      write(a[i,j],' ')
    end;
    writeln
  end;
  {определяем положительный столбец}
  for i:=2 to str do
    for j:=1 to sto do
    begin
      if a[j,i]<=0 then
        break;
      if (j=sto) and (a[j,i]>0) then
        num:=i;
    end;
  {проверка стоит ли дальше продолжать}
  if num=0 then
  begin
    writeln('В заданной матрице нет положительных столбцов для замены первого...');
    exit
  end;
  {производим замену столбцов}
  for i:=1 to str do
  begin
    temp:=a[i,1];
    a[i,1]:=a[i,num];
    a[i,num]:=temp
  end;
  {выводим матрицу}
  writeln('Полученная матрица:');
  writeln('------------------');
  for i:=1 to str do
  begin
    for j:=1 to sto do
      write(a[i,j],' ');
    writeln
  end;
  writeln('------------------');
  writeln('Мы произвели замену 1 и ',num,' столбцов')
end.