pascal pytanie Opcje

[aiden]

witam
mam problem z tablicami

mój kod

program petelka;
uses crt;
var
i:integer;
dane: array[1..10] of real;
liczby:integer;
begin
for i:=1 to 10 do
if i mod 3=0 then
dane[liczby]:=i;
writeln(dane[liczby]:3);
end.

Chcę zrobić aby wyniki zapisywały się w tablicy i potem je odczytać ale coś źle mi wychodzi poniważ nie pokazuje tak jak to przy
for i:=1 to 10 do
if i mod 3=0 then
write(i:3)
3 liczby 3 , 6, 9
tylko pokazuje liczbę 9 co jest źle ?