Ввести натуральное число N. Получить все его натуральные делители — Pascal(Паскаль)

program p1;

label 1;

var
  i, n: integer;
  prod: char;

begin
1:
  write('N= ');
  readln(n);
  writeln('Vse ego naturalinye deliteli:');
  for i := 1 to n do
    if n mod i = 0 then
      writeln(i);

  write('Vi xotite prodoljiti? (y/n) ');
  readln(prod);
  if prod = 'y' then
    goto 1;
  readln;

end.