viết ct nhập vào 1 dãy gồm 10 số nguyên. sau đó kt và đưa ra màn hình các số có giá trị lớn hơn 5 help me plsss cause mai mk thi rồi TT

program lon_hon5;

uses crt;

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

     i:byte;

begin

       clrscr;

       for i:=1 to 10 do

              begin

                     write('Nhap so thu ',i,': ');   readln(A[i]);

              end;

       for i:=1 to 10 do

              if A[i]>5 then write(A[i],' ');

       readln;

end.