Напишите алгоритм, проверяющий, является ли частью данного слова слово «сок». Если ответ отрицательный, то добавьте к введенному слову слово «нет» в начало и конец. Если ответ «да», то проверьте, не является ли оно словом «сокол» — Pascal(Паскаль)

Var
  Word, sokol: string;
  SearchWord: string[20];
  Position: Byte;

Begin
  write('Введите слово:');
  readln(Word);
  sokol := 'сокол';
  writeln(sokol);
  SearchWord := 'сок';
  writeln(SearchWord);
  Position := Pos(SearchWord, Word);
  if Position <> 0 then
  begin
    if (Word = sokol) then
      writeln('Это слово-', Word)
    else
      writeln('Слово:', SearchWord, ' содержится в слове-', Word);
  end
  else
    writeln('нет', Word, 'нет');

End.