Найти количество нечетных чисел среди введенных - VB

begin
  write('Введите n: ');
  var n := ReadInteger;
 
  var c := 0;
  for var i:=1 to n do
  begin
    write ('Введите целое число: ');
    var x := ReadInteger;
    if x mod 2 <> 0 then
      c += 1;
  end;
 
  writeln('Количество нечетных равно ', c);
end.

Dim n, c As Integer
Private Sub Command1_Click()
n = (Text1.Text)
For i = 0 To n Step 1
If x = 2 <> 0 Then
c = c + 1
End If
Form1.Print Tab(1); c
Next
End Sub