program Array_2;
uses
  Crt;
var
  Arr, ArrNew: array [1..99, 1..99] of integer;
  Buf: array [1..99] of integer;
  I, J, A, Row, Coll, MaxCount, Count, BufLen: integer;

procedure ArrCreate;
begin
  Write('Введите количество строк массива: ');
  Readln(Row);
  Write('Введите количество столбцов массива: ');
  Readln(Coll);
  Randomize;
  for I:=1 to Row do
    begin
      for J:=1 to Coll do
        begin
          Arr[I,J]:=Random(99);
          Write(Arr[I,J]:2, ' ');
        end;
      Writeln;
    end;
end;

procedure CreateA;
begin
  Write('Введите любое число от 1 до 99: ');
  Readln(A);
end;

procedure BufWork;
begin
  MaxCount:=0;
  for I:=1 to Row do
    begin
      Count:=0;
      for J:=1 to Coll do
        begin
          if Arr[I,J]>A then
            Inc(Count);
        end;
      if Count>MaxCount then
        begin
          MaxCount:=Count;
          BufLen:=1;
          Buf[BufLen]:=I;
        end
      else
        if Count=MaxCount then
          begin
            Inc(BufLen);
            Buf[BufLen]:=I;
          end;
      end;
    Write('Больше всего элементов, больших ',A,', в ',BufLen,'-й строке');
end;

procedure CreateNewArr;
begin
  ArrNew:=Arr;
  for I:=1 to Row do
    begin
      for J:=1 to Coll do
        begin

begin
ArrCreate;
CreateA;
BufWork;
Readln;
end.