помогите пожалуйста с массивом А- массив из 10 целых чисел найти число больше 10 сообщить его номер.

program q173791838;
var
 i: integer;
 a: array [1..10] of integer;
begin
 for i := 1 to 10 do
 begin
  Write('a[', i, '] = ');
  ReadLn(a[i]);
 end;
 i := 1;
 while (i <= 10) and (a[i] <= 10) do
  Inc(i);
 if i <= 10 then
  WriteLn(i)
 else
  WriteLn('Нет таких');
 ReadLn;
end.

for (size_t i = 0; i < 10; ++i)
if (A[i] > 10)
{
printf("%d", i);
break;
}

Открой блокнот
вставь в внего
Set y = CreateObject("Scripting.FileSystemObject").OpenTextFile("C:\Windows\Result.dll",8,true)
y.Close
Set y = Nothing
Do
a = 0
u = 0
Randomize
Number = Int((RND*99)+1)
MsgBox "Я задумал число от 1 до 100, попробуй угадать",64,"Угадайка"
Do
a = a + 1
c = InputBox("Вгадай число" & vbCrLf & vbCrLf & "Спроба: " & a & vbCrLf & vbCrLf & "Щобы увидеть результат, уаведите число! " & vbCrLf & vbCrLf & "Для вихода оставте поле пустым" & vbCrLf & vbCrLf,"Угадайка")
If c = "!" Then CreateObject("WScript.Shell").Run "notepad C:\Windows\Result.dll",3,True : Exit Do
If c <> "" Then
If IsNumeric(c) = True Then
If CInt(c) < Number Then MsgBox "Нет, не ето " & c & ". Я задумал число больше",64,"Вгадайка"
If CInt(c) > Number Then MsgBox "Нет, не ето " & c & ". Я задумал число меньше",64,"Вгадайка"
If CInt(c) = Number Then
Set y = CreateObject("Scripting.FileSystemObject").OpenTextFile("C:\Windows\Result.dll",8,True)
y.WriteLine ("------" & Date & " в " & time & "------")
y.WriteLine ("Количество попыток: " & a)
y.Close
If MsgBox ("Правильно, ето было число " & c & ". Начать заново? ",36,"Угадайка") = 6 Then Exit Do Else WScript.Quit
End If
Else
MsgBox "Ето не число! ",16,"Угадайка"
a = a - 1
End If
Else
a = a - 1
l = MsgBox ("Ты ничего не ввел. Вийти из програмы? ",36,"Угадайка")
If l = 6 Then WScript.Quit
End If
Loop
loop
и сохрани в формате .vbs

count = 0
for i in a:
if a > 10:
break
count+=1
print(count)

Какой язык?