Program Lab8_22; uses crt;

const n=10; m=6;

var x:array [1..n,1..m] of integer;
    y:array [1..m] of integer;
    i,j:byte;
    flag:boolean;

Begin clrscr;
Randomize;
Write('--------------------------------------------------------------------------------');
Writeln(' Матрица X');
for i:=1 to n do
    Begin
    for j:=1 to m do
        Begin
    X[i,j]:=Random(81);
        X[i,j]:=X[i,j]-35;
        Write(X[i,j]:5);
        end;
    Writeln;
    end;

Write('--------------------------------------------------------------------------------');
Writeln(' Вектор Y');
for j:=1 to m do
    Begin
    Y[j]:=0; {Если не будет четных элементом, то запишем 0}
    i:=0;
    Flag:=False;

    Repeat
    Inc(i);
    if not Odd(X[i,j]) then
                       Begin
                       Y[j]:=X[i,j];
                       Flag:=True;
                       end;
    Until (i = n) or (Flag);

    Write(Y[j]:5);
    end;
Writeln;
Write('--------------------------------------------------------------------------------');
GotoXY(15,WhereY); Writeln('Для выхода из программы нажмите клавишу "Enter"');
Write('--------------------------------------------------------------------------------');
Readln;
end.