Нужно решение в pascalabc и нарисованная блок-схема. .

Написано и протестировано в PascalABC.NET (версия 2.2, сборка 842)
const
 s='велосипедист';
var
 t:='кытунак';
 p:string;
begin
  // 1
  Writeln(LeftStr(s,9),', ',
    s[12]+s[2]+s[5]+s[12]+s[4],', ',
    s[4]+Copy(s,3,2)+s[1]+s[4]);
  // 2
  Writeln('Позиция буквы "д" в слове "'+s+'" равна ',s.IndexOf('д')+1);
  // 3
  Write('Было: ',t,', стало: ');
  t[2]:='о'; t[4]:='е'; t:=t.Replace('а','о');
  Writeln(t);
  // 4
  Write('Коды символов слова ',t,': ');
  foreach c:char in t do Write(Ord(c),' ');
  Writeln;
  // 5
  Write('В слове ',t,' количество букв ');
  if Odd(t.Length) then Writeln('нечетное') else Writeln('четное')
end.

Результат выполнения программы:
велосипед, тесто, олово
Позиция буквы "д" в слове "велосипедист" равна 9
Было: кытунак, стало: котенок
Коды символов слова котенок: 234 238 242 229 237 238 234
В слове котенок количество букв нечетное

Пояснение:

Если ввод осуществляется через файл, то он должен называть "Слова.txt" и находиться в одной директории с исполняемым файлом. Выбрать нужный вариант ввода можно просто введя цифру в перовом input.

Код:

# -*- coding: utf-8 -*-

format = int(input("Считать слова из файла (введите 1)\nВводить слова в консоль (введите 2)\nВвести слова в одну строку(введите 3)\nВыбор: "))

words = []

answer = []

if format == 1:

  f = open('Слова.txt', "r", encoding='utf-8')

  line = f.readline()

  while line:

      for i in line.split(", "):

          words.append(i)

      line = f.readline()

  f.close()

elif format == 2:

  n = int(input("Введите кол-во слов - "))

  for i in range(n):

      words.append(input("Вв. слол - "))

elif format == 3:

  n = input("Введите строку - ")

  for i in n.split(", "):

      words.append(i)

else:

  print("Неправильно введен номер ответа")

word = input("Введите поисковое слово - ")

for i in words:

  for j in list(word):

      if len(set(word).intersection(set(i))) == len(i):

          answer.append(i)

          break

print(", ".join(answer))

Текст для документа:

рыба, рак, щука, лебедь, карась, пескарь, баня, бубен, столб, баян, барыня