А теперь пример заполнения числовых переменных.
Program massive2;
var a:array [1..5] of integer;
i,n:integer;
begin
i:=1; n:=1;
for i:=1 to 5 do
begin
a[i]:=n; n:=n+10; i:=i+1;
end;
drawtext(a[1]+' '+a[2]+' '+a[3],0,0);
//получим на выходе "1 11 21"
repaint;
end.