Даны целые числа K и N (N > 0). Вывести N раз число K — Pascal(Паскаль)

program For1;

var
  k, n: integer;
  i: integer;

begin
  repeat
    write('Введите N(n>0)');
    readln(n);
  until n > 0;
  writeln('Введите K');
  readln(k);
  for i := 1 to n do
  begin
    writeln(k);
  end;

end.