Среди элементов каждой строки матрицы, отличных от данного B, найти наибольший элемент и его номер

var
    ar: Array[Byte, Byte] Of ShortInt;
    i, j, m, n, jMax: Byte;
    b: ShortInt;
    flag: Boolean;
begin
    repeat
        Write('Количество строк? (1..255): ');
        ReadLn(m);
    until (m > 0);
    repeat
        Write('Количество столбцов? (1..255): ');
        ReadLn(n);
    until (n > 0);
    Randomize;
    WriteLn('Исходная матрица:');
    for i := 0 to m - 1 do
    begin
        for j := 0 to n - 1 do
        begin
            ar[i, j] := Random(199) - 99;
            Write(ar[i, j]:4);
        end;
        WriteLn;
    end;
    WriteLn;
    Write('Введите число B: ');
    ReadLn(b);
    WriteLn('Максимумы строк, отличные от ', b, ':');
    for i := 0 to m - 1 do
    begin
        flag := False;
        jMax := 0;
        for j := 0 to n - 1 do
            if (((Not flag) Or (ar[i, j] > ar[i, jMax])) And (ar[i, j] <> b))
            then
            begin
                flag := True;
                jMax := j;
            end;
        Write('ar[', i + 1, '][', jMax + 1, ']=');
        if (flag)
        then
            WriteLn(ar[i, jMax])
        else
            WriteLn('не найдено!');
    end;
end.