В чём проблема? помогите исправить и поясните...

program zchislo;
var h, o : integer;
begin
writeln (' введите число h')
read (h);
for o:= 1 to h do
if h mod o =0 then writeln(o)
end .