program project1;

{$mode objfpc}{$H+}

uses
{$IFDEF UNIX}{$IFDEF UseCThreads}
cthreads,
{$ENDIF}{$ENDIF}
Classes
{ you can add units after this };
//первый положительный эл-т каждого столбца матрицы записать в массив
var a: array [1..10,1..10] of integer;
b: array [1..10] of integer;
i,j,m,n,k: integer;
begin
writeln ('Введите кол-во строк в матрице:');
readln (m);
writeln ('Введите кол-во столбцов в матрице:');
readln (n);
writeln ('Введите элементы матрицы:');
for i:=1 to m do
for j:=1 to n do readln(a[i,j]);
writeln ('Матрица А:');
for i:=1 to m do
begin
for j:=1 to n do write(a[i,j]:3);
writeln;
end;

for j:=1 to n do
k:=0;
repeat
if a[i,j]>0 then begin
b[j]:=a[i,j];
k:=k+1;
end;
until a[i,j]>0 or k=1;

writeln ('Массив В:');
for j:=1 to n do writeln(b[j]);
readln;
end.