Pascal???

Pascal???
Написать программу, которая добавляет вторую строку в первую строку, в первую позицию первого пробела!
Вот ПримеР:
Program pr1;
Uses crt;
Var a,b:string; i:integer;
Begin
clrscr;
Write('Введите строку 1 ');
Readln(a);
Write('Введите строку 2 ');
Readln(b);
for i:=1 to length(a) do
if a=' ' then
insert (a,b,i);
Write(b);
End.
----------------------------------------
Например
Строка 1 Мусин Петров
Строка 2 Иван
Должно выводить--> Мусин Иван Петров
а выводит ИванМусин Петров.
В ЧЕМ ОШИБКА????

  • b:=' '+b;
    insert (b,a,i);
    Write(a);
  • По хорошему, надо вставлять пробел+вторая строка.
    Вместо поиска пробела в цикле лучше использовать готовую функцию поиска символа в строке.
  • if a в условии