Nhập từ bàn phím 1 dãy n số nguyên. Viết chương trình in ra màn hình các số lẻ có trong dãy. giải giúp em với ạ sắp nộp bài rồi

program phuongt;
uses crt;
  var A: array[1..500] of integer;
        i, n: integer;
begin
       clrscr;
       write(‘Nhap n = ‘); readln(n);
       for i:=1 to n do
       begin
                write(‘A[‘, i, ‘] = ‘); readln(A[i]);
       end;
       for i:=1 to do if A[i] mod 2 <> 0 then write(A[i]:3);
       readln
end.