Строка: Разбить исходную строку в соответствии с шириной поля вывода N - Turbo Pascal

var s:string;
    n,i:byte;
begin
writeln('Введите строку');
readln(s);
repeat
write('Введите ширину поля вывода меньше длины строки');
readln(n);
until n<length(s);
for i:=1 to length(s) do
 begin
  write(s[i]);
  if i mod n=0 then writeln;
 end;
end.