задача по Basic кто знает как решить?

я знаю как решить. . но писать небуду.. . научитесь думать.. . либо подйите в школу и скажите преподу что это не ваше всеравно вы ноль пусть хоть 3 за правду поставит!

Фишка в нахождении наибольшего элемента в таблице, где линии - спортсмены а столбцы -попытки.

n = inputbox ("введите количество участникофф")
dim i, nom as integer
dim fam(n) as string
dim r(N,3) as single
for i=1 to n
fam(i)=inputbox("Введите фимилию")
r(i,0)=inputbox("Введите 1й результат")
r(i,1)=inputbox("Введите 2й результат")
r(i,2)=inputbox("Введите 3й результат")

if r(i,0) > r(i,1) then
r(i,3)=(i,0)
else
r(i,3)=(i,1)
end if

if r(i,3) < r(i,2) then
r(i,3)=(i,2)
end if

msgbox("лучший результат у " & fam(i) & " "& r(i,3))
if r(nom,3)< r(i,3)
nom=i
end if
next
msgbox ("Победил " & fam(nom) &". Его результат - " & r(nom,3))

Ну если имеется в виду Q - Basic

cls
input "Введите число спортсменов"; N
Dim A(N,3)
'Результаты попыток
Dim B$(N) 'Фамилии
Dim C(N) 'Максимальные результаты
Dim D(N) 'Номера попыток, в которых был поставлен рекорд.
For i=1 to N
Print "Введите фамилию номер ";i
input b$(i)
Print "Введите результаты его попыток, через запятую"
Input a(i,1),a(i,2),a(i,3)
C(i)=A(i,1)
D(i)=1
For j=2 to 3
If A(i,j)>C(i) Then
c(i)=A(i,j)
D(i)=j
End if
Next j
Next i
cls
Print "Результаты работы программы"
Print "Фамилия, номер попытки, результат"
For i=1 to N
Print B$(i), D(i), C(i)
Next i