Довести до ума нужно - Pascal ABC

Формулировка задачи:

Подсчитать и вывести на экран количество пробелов во введенной строке. Уровень 2. Дополнительные условия: Ввести с клавиатуры число N. Перевести исходную строку в другую строку так, чтоб количество всех пробелов между всеми словами увеличилось в N раз. Вывести на экран новую строку. Уровень 3. Дополнительные условия: Заменить все пробелы в "увеличенной" строке так, чтоб между каждым словом вместо пробелов стояли символы 1-2-3-4-5 и т.д. Вывести на экран третью строку. Пример полной обработки:"Привет всем тут" В строке 2 пробела введите N=5 Привет всем тут Привет12345всем12345тут

var
s1, s2, s3, s11:string;
np: integer;
i,j: integer;
n: integer;
 
Begin
writeln('Введите строку');
readln(s1);
writeln('Вы ввели строку: ', s1);
np:=0;
for i:=1 to length(s1) do if s1[i] = ' ' then np:=np+1;
writeln('в этой строке ', np,' символов "пробел"');
 
write ('введите N=');
readln(n);
 
for i:=1 to length (s1) do
    if s1[i]<>' '
    then s2:=s2+s1[i]
    else begin s2:=s2+s1[i];
         for j:=2 to n do s2:=s2+chr(ord(' '));
                   end;
writeln ('Дополнительная строка');
writeln(s2);
 
for i:=1 to length (s1) do
    if s1[i]<>' '
    then s3:=s3+s1[i]
else begin
 
s3:=s3+s1[i];
         for j:=1 to n do s3:=s3+chr(ord('1')-1+j);
end;
writeln(s3);
 
end.

но она у меня выводит последнию строчку так: привет 12345всем 12345тут как убрать пробел?

Решение задачи: «Довести до ума нужно»

textual
                            Листинг программы 
                        

                            //...
else begin
s3:=s3+s1[i];
//...
                        