קודם כל תגדיר אותו למעלה, איפה שמשתנים:

 
a:array{1..10} of integer; 

אחרי זה תריץ לולאה שתקלוט כל פעם ערך לתא אחר:

for i:=1 to 10 do
   readln(a{i});