viết chương trình nhập mảng một chiều 10 phần tử kiểu số nguyên và tìm phần tử nguyên dương của mảng Làm giúp em với ạ

uses crt;
var i:integer;
a : array [1..10] of integer;
begin
clrscr;
for i:= 1 to 10 do
begin
write('Nhap a[',i,'] : ');readln(a[i]);
end;
write('Cac phan tu nguyen duong : ');
for i:=1 to 10 do
if a[i] > 0 then write(a[i],' ');
readln;
end.

uses crt;
var i: longint;
      a: array [1..10] of longint;
begin
           clrscr;
           for i:= 1 to 10 do
                     begin
                              write('a[',i,'] =  ');read(a[i]);
                     end;
           writeln('Cac phan tu nguyen duong la: ');
           for i:=1 to 10 do
           if a[i] > 0 then write(a[i],' ');
           readln;
end.