Mn giúp e với ạ Viết CT nhập vào mảng một chiều tìm số lẻ đầu tiên trong mảng với ạ ( lm bằng free IDE Pascal)

program phuongt;

uses crt;

  var A: array[1..500] of integer;

        i, n: intger;

begin

         clrscr;

         write(‘Nhap n = ‘); readln(n);

         for i:=1 to n do 

         begin

                    write(‘A[‘, i, ‘] = ‘); readln(A[i]);

         end;

         write(‘So le dau tien trong mang la: ‘);

         for i:=1 to n do

         if A[i] mod 2 = 1 then 

         begin

                   write(A[i]);

                   break;

         end;

         readln

end.