Program Lab8_22; uses crt;

const n=10; m=6;

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

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

Write('--------------------------------------------------------------------------------');
Writeln(' Вектор Y');
for i:=1 to n do
    Begin
    Y[i]:=X[i,1];
    for j:=2 to m do if (X[i,j] > Y[i]) then Y[i]:=X[i,j];
    Write(Y[i]:7:2);
    end;
Writeln;
Write('--------------------------------------------------------------------------------');
GotoXY(15,WhereY); Writeln('Для выхода из программы нажмите клавишу "Enter"');
Write('--------------------------------------------------------------------------------');
Readln;
end.