Как сделать так, чтобы прога выводила символы не в столбик, а в строчку?

var
s:string;
i,k:integer;
begin
writeln('vvedite stroky:');
readln(s);
i:=1;
while i<=length(s) do
begin
k:=0;
while (s[i]>='0') and (s[i]<='9') do begin
k:=k*10;
k:=k+ord(s[i]) - ord('0');
inc(i);
end;
if k=0 then
write(s[i])
else
while k>0 do begin
dec(k);
writeln(s[i]);
end;
inc(i);
end;
readln;
end.


Примечание:
OverHerz
как это правильно написать?

RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.

Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.

Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.