Dim m, n As Integer
Input m
Input n
Dim Matrix(m,n) As Integer
Dim MaxElement As Integer
Dim RowNum As Integer

'Где-то здесь вводим матрицу...
...

'Ищем строку с наибольшим элементом
MaxElement = A( 1 , 1 )
For i= 0  To m- 1 
  For j= 0  To n- 1 
    If (MaxElement < A(i,j)) Then
      MaxElement = A(i,j)
      RowNum = i
    End If
  Next j
Next i

'Заменяем элементы на нули:
For j=1 To m-1
  A(RowNum, j) = 0
Next j

'Выводим сие чудо на екран :)
For i= 0  To m- 1 
  For j= 0  To n- 1 
    Print A(i,j);
  Next j
  Print
Next i