Найти максимальный элемент массива и его номер - VB (170378)

Формулировка задачи:

uses crt;
var n,i,a,mn,mx,imn,imx:integer;
begin
write('n=');
read(n);
writeln('Введите ',n,' целых чисел:');
read(a);
mn:=a;
mx:=a;
imn:=1;
imx:=1;
for i:=2 to n do
 begin
  read(a);
  if a<mn then
   begin
    mn:=a;
    imn:=i;
   end;
  if a>=mx then
   begin
    mx:=a;
    imx:=i;
   end;
 end;
writeln('Минимальный  =',mn,' его первый    номер=',imn);
writeln('Максимальный =',mx,' его последний номер=',imx);
end.

Решение задачи: «Найти максимальный элемент массива и его номер»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
   'uses crt;
   'var n,i,a,mn,mx,imn,imx:integer;
    Dim n As Integer, i As Integer, a As Integer, mn As Integer, mx As Integer, imn As Integer, imx As Integer
    'begin
    'write('n=');
    'read(n);
    n = Val(InputBox("n=", , 5))
    'writeln('Введите ',n,' целых чисел:');
    'read(a);
    a = Val(InputBox("a 1", , 2))
    mn = a  'mn:=a;
    mx = a  'mx:=a;
    imn = 1 'imn:=1;
    imx = 1 'imx:=1;
    For i = 2 To n ''for i:=2 to n do
      'begin
        a = Val(InputBox("a " & i, , Int(Rnd * 10 + 1)))  'read(a);
        If a < mn Then 'If a < mn Then
             'begin
              mn = a  'mn:=a;
              imn = i 'imn:=i;
        End If 'end;
        If a >= mx Then 'If a >= mx Then
              'begin
               mx = a 'mx:=a;
               imx = i 'imx:=i;
        End If 'end;
     Next i 'end;
     'writeln('Минимальный  =',mn,' его первый    номер=',imn);
     MsgBox ("Минимальный  =" & mn & ", его первый    номер=" & imn)
     'writeln('Максимальный =',mx,' его последний номер=',imx);
     MsgBox ("Максимальный  =" & mx & ", его последний номер=" & imx)
End Sub 'end.
                        