Программа - Ннахождение делителей натурального числа / текст

Program p1;
var i,h,t:integer;
begin
readln (h);
for i:=1 to h do
if h mod i=0 then writeln (i);
readln;
readln;
end.