Вопрос Delphi. Срочно подскажите как заполнить массив

[валентин]

Скажите пожалуйста, кто знает как в делфи заполнить массив по порядку от 1 до 525600? вроде элементарно, но я не могу
var
x:array [1..525] of real;
i,p:integer;
begin
x[1]:= 1;
for i:=1 to 525 do
x:=x+1; - не работает...