Раздел строки на параграфы. Pascal.

[ArsGo]

Помогите исправить ошибки.
Задача:
Дана строка, являющаяся параграфом в тексте. Дано число N. Нужно отформатировать текст так, чтобы количество символов на каждой строке не превосходило N. Слова разделены одним пробелом.
Пример:
Ввод:
7
один два три четыре
Вывод:
один
два три
четыре
Мой код:

  var
s:string;
b,c,a,i,n:integer;
begin
readln(n);
readln(s);
for i:=1 to length(s) do begin
write(s[i]);
inc(b);
c:=b;
if s[i]=(' ') then begin
a:=i+1;
while s[a]<>(' ') do
begin inc (a); inc(b);
end;
if b+1>n then
begin writeln; b:=0;
end
else b:=c;
end;
end;
end.