90 если "" занести в программу паскаль вт это
def kmp(s,t):
index = -1
f = prefix(s)
k = 0
for i in xrange(len(t)):
while k > 0 and s[k] < > t[i]:
k = f[k-1]
if s[k] == t[i]:
k = k + 1
if k == len(s):
index = i - len(s) + 1
break
return index

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

procedure CreateFile(p:string);
begin
  var f:=OpenWrite(p);
  Writeln(f,'В чащах юга жил бы цитрус? Да, но фальшивый экземпляръ!');
  Writeln(f,'СЪЕШЬ ЖЕ ЕЩЁ ЭТИХ МЯГКИХ ФРАНЦУЗСКИХ БУЛОК, ДА ВЫПЕЙ ЧАЮ');
  Writeln(f,'ФлегмаТичНая этА веРБлЮдиЦа жует у пОДЪезда засыХающий горький шиповник');
  Writeln(f,'The quick brown fox jumps over the lazy dog');
  Writeln(f,'THE FIVE BOXING WIZARDS JUMP QUICKLY');
  f.Close
end;

procedure UpFile(p:string);
begin
  var a:=ReadAllLines(p);
  WriteAllLines(p,a.Select(s->UpperCase(s)).ToArray);
end;

begin
  var p:=ReadlnString('Введите имя файла (можно, с путём):');
  CreateFile(p);
  UpFile(p);
  // контроль работы
  ReadAllLines(p).Println(NewLine)
end.

Пример работы
Введите имя файла (можно, с путём): MyTest.txt
В ЧАЩАХ ЮГА ЖИЛ БЫ ЦИТРУС? ДА, НО ФАЛЬШИВЫЙ ЭКЗЕМПЛЯРЪ!
СЪЕШЬ ЖЕ ЕЩЁ ЭТИХ МЯГКИХ ФРАНЦУЗСКИХ БУЛОК, ДА ВЫПЕЙ ЧАЮ
ФЛЕГМАТИЧНАЯ ЭТА ВЕРБЛЮДИЦА ЖУЕТ У ПОДЪЕЗДА ЗАСЫХАЮЩИЙ ГОРЬКИЙ ШИПОВНИК
THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG
THE FIVE BOXING WIZARDS JUMP QUICKLY

Для установки парольной защиты в Ворд выполните следующие действия:

В документе Word войдите в меню «Файл».

В разделе «Сведения» кликните по кнопке «Защита документа».

В открывшемся меню нажмите на пункт «Зашифровать с использованием пароля». Придумайте пароль и файл защищен.

Объяснение:

Для установки парольной защиты в Ворд выполните следующие действия:

В документе Word войдите в меню «Файл».

В разделе «Сведения» кликните по кнопке «Защита документа».

В открывшемся меню нажмите на пункт «Зашифровать с использованием пароля». Придумайте пароль и файл защищен.