Создать массив натуральных нечетных чисел длины n, и вывести квадраты элементов в строку. блок схему

For i:=1 to sqr(n) do
a[i]:=0; i:=1;
while(i<n)do begin
if(i mod 2 <> 0)then begin
a[i]:=1;
g:=i;
inc(i);
end
else inc(i);
end;
for i:=1 to g do
if(a[i]=1)then write(sqr(i),' ');
readln;
readln;
end;