Задана матрица размером . Получить массив B, присвоив его k-му элементу значение 1, если элементы k-ой строки

program task1;
 
{$APPTYPE CONSOLE}
 
{$R *.res}
 
uses
  System.SysUtils;
 
var A:array [1..10,1..10] of integer;
    B:array [1..10] of Integer;
    n,m:byte;//size of matrix;
    k:byte;//key element
 
Procedure GetBasicInfo(out n,m,k:byte);
Begin
  write('n=');readln(n);//число строк в матрице А
  write('m=');readln(m);//число столбцов в матрице А
  write('k=');readln(k);//k-элемент, определяющий условие анализ матрицы и формирование массива В
  if(k>n) then begin write('Incorrect Input Info.');readln;halt;end;//если k-элемент больше числа строк в массиве, то юзер-дурак
  writeln('Input basic elements complete. Preass Enter to continue.');readln;
End;
 
Procedure SetMatrixA(n,m:byte);//запись чисел в матрицу
var i,j:byte;
Begin
Writeln('Write In matrix A:');
for i:=1 to n do
for j:=1 to m do
begin write('A[',i,';',j,']=');Readln(A[i,j]);end;
writeln('Input End.');
End;
 
Procedure ViewMatrixA(n,m:byte);//просмотр в удобоваримом виде
var i,j:byte;
Begin
Writeln('View of Matrix A:');
for i:=1 to n do
begin
for j:=1 to m do Write(A[i,j], ' ');
writeln;
end;
End;
 
Function Analys(var k:byte):Boolean;//анализ к-той строки матрицы
var flag:Boolean;
    max,j:Integer;
Begin
  flag:=true;//если все элементы матрицы убывают
  max:=-MaxInt;
  for j:=1 to m do
  if(max>A[k,j]) then max:=A[k,j]//если все элементы матрицы убывают
  else flag:=false;//если не все элементы матрицы убывают
  Analys:=flag;
End;
 
Procedure MassiveB(m,k:byte;flag:Boolean);//формирование массива исходя из условия задачи
var i,j:byte;
Begin
Writeln('View Massive B');
for j:=1 to m do B[j]:=A[k,j];
if(flag=true) then B[k]:=1 else B[k]:=0;
 
for j:=1 to m do Write(B[j],' ');
writeln('View Massive B Complete.');
End;
 
begin
  try
GetBasicInfo(n,m,k);
SetMatrixA(n,m);
ViewMatrixA(n,m);
readln;
MassiveB(m,k,Analys(k));
readln;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.