Вывод слов, в которых нету букв первого слова - Pascal

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

Дана строка состоящая из слов. Слова разделяются только пробелом. Нужно вывести на экран только те слова, в которых не содержаться буквы первого. Контрольный пример: Ввод: sda asd vbn mnb zxc dsa Вывод: vbn mnb zxc P.S.: Другу надо, он даже с учительницей разбирал, но увы, последнее слово не выводило. Желательно с комментариями.

Вот ещё К.П.: absd fdv mkl egat rty aoj ty -----> mkl rty ty

Решение задачи: «Вывод слов, в которых нету букв первого слова»

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

Var s,sl,s1:string;
    i:byte;
    f:boolean;
Begin
    write('Строка: ');readln(s);
    s:=s+' ';
    While s[1]=' ' do
     Delete(s,1,1);
    s1:=Copy(s,1,Pos(' ',s)-1);
    Delete(s,1,Pos(' ',s));
    While Pos(' ',s)>0 do
    Begin
      sl:=Copy(s,1,Pos(' ',s)-1);
      Delete(s,1,Pos(' ',s));
      if sl='' then Continue;
      f:=true;
      For i:=1 to Length(s1) do
       if Pos(s1[i],sl)>0 then
       Begin
         f:=false;
         break;
       End;
      if f then write(sl,' ');
    End;
    readln;
End.

Объяснение кода листинга программы

Создаются переменные s, sl и s1 типа string, i типа byte и f типа boolean.
Вводится строка, которую сохраняют в переменной s.
Переменная s обновляется путем добавления пробела в начало.
Запускается цикл While, который продолжается до тех пор, пока первый символ в переменной s не станет пробелом.
Копируется первый символ из переменной s в новую переменную s1.
Удаляется символ из переменной s.
Запускается цикл While, который продолжается до тех пор, пока в переменной s есть символы.
Для каждого символа в переменной s1 проверяется, равен ли он пустой строке. Если да, то цикл прерывается с помощью команды Continue.
Если предыдущий шаг не выполнен, то переменная f устанавливается в значение true.
Для каждого символа в переменной s1 проверяется, содержится ли он в переменной sl.
Если символ содержится в sl, то переменная f устанавливается в значение false и цикл прерывается с помощью команды break.
Если предыдущий шаг не выполнен, то значение переменной f выводится на экран.
Программа завершается после ввода следующей строки.