Необходимо написать функцию в программе паскаль

program lab6v11;
{Файл input.dat содержит несколько строк текста. Слова в тексте могут
разделяться пробелами и знаками препинания. Переписать текст в файл
output.dat, заменив прописные буквы заглавными в словах, содержащих
«запрещенные» слоги. Список «запрещенных» слогов находится в файле
errors.dat.  }
const
  punc = ['.', ',', ' ', '-', ';', ':', '?'];
var
  f1, f2,errors: text;
  str: string;
  n: integer;
 
{Записывает строки в файл input.dat}
procedure write_input();
begin
  assign(f1, 'input.dat');
  rewrite(f1);
  write('Введите кол-во строк:');
 readln(n);
  for var i := 1 to n do
  begin
    readln(str); {вводим с клавиатуры строки}
    writeln(f1, str); {записываем последовательно строки в файл}
  end;
  close(f1);
end;
 
{Поиск отдельного слова в строке}
function find_word(s: string; i: integer): string;
var
  word: string;
begin
  while (i <= length(s)) and (not (s[i] in punc)) do
  begin
    word := word + s[i];
    i := i + 1;
  end;
  find_word := word;
end;
{Записывает строки в файл errors.dat}
procedure write_errors();
begin
  rewrite(errors,'errors.dat');
  write('Введите кол-во слогов:');
 readln(n);
  for var i := 1 to n do
  begin
    readln(str); {вводим с клавиатуры слоги, каждый слог с новой строчки}
    writeln(errors, str); {записываем последовательно слоги в файл}
  end;
  close(errors);
end;
{Функция проверки есть ли в слове запрещенные слоги}
function check_word(word: string): boolean;////не пойму как сделать именно эту функцию!!!!!!!
begin
end;
{Разделяет строку на слова, преобразует необходимые в нужный формат и выводит готовую строку}
function find_word(str: string): string;
var
  i: integer;
  word, slovo, out_slovo: string;
begin
    i := 1;
   while (i <= length(str)) do
        begin
          word := word + str[i];
          if (str[i] in punc) or ( i = length(str)) then
            begin
               slovo := word;                
               if (check_word(slovo) = true) then                  
               begin
                   for var j := 1 to length(slovo) do           
                   slovo[j] := UpCase(slovo[j]);
               end;
                word := '';
                out_slovo := out_slovo + slovo;
            end;
          i := i + 1;
        end;
  find_word := out_slovo;
end;
 
{смена регистра букв}
procedure BigLetters();
begin
  Reset(f1); {открываем первый файл для чтения} 
  assign(f2, 'output.dat'); {устанавливаем связь второй файловой переменной с
  физическим файлом}
  rewrite(f2); {открываем второй файл для записи} 
  while not eof(f1) do
  begin
    Readln(f1, str);{считываем очередную строку из первого файла}
      Writeln(f2, find_word(str)); {записываем во второй файл готовые отредактированные строки, удовлетворяющие условию}
  end;
  close(f1);
  close(f2);{заканчиваем работу с файлами}
end;
 
{Печатает что находится во втором файле output.txt}
procedure print_file();
begin
  Writeln('Второй файл содержит строки:');
  Reset(f2); {открываем второй файл для чтения}
  while not eof(f2) do {пока не конец второго файла}
  begin
    Readln(f2, str);{считываем очередную строку из второго файла}
    Writeln(str); {выводим строку на экран}
  end;
end;
 
begin
  write_input();
  BigLetters();
  writeln;
  print_file();
end.

{Функция проверки есть ли в слове запрещенные слоги, True = есть}
function check_word(word: String): Boolean;
var t: String; b: Boolean;
begin
  {Assign(errors,'errors.dat');} {если выше гарантирован аналогичный вызов, то здесь не нужен}
  Reset(errors); b:=False;
  while not EoF(errors) and not b do begin
    ReadLn(errors,t); b:=Pos(t,word)>0;
  end;
  Close(errors);
  check_word:=b;
end;

const punc = [#32..#127]-['0'..'9','A'..'Z','a'..'z','_'];

const punc = [#0..#127]-['0'..'9','A'..'Z','a'..'z','_'];

program lab6v11;
{Файл input.dat содержит несколько строк текста. Слова в тексте могут
разделяться пробелами и знаками препинания. Переписать текст в файл
output.dat, заменив прописные буквы заглавными в словах, содержащих
«запрещенные» слоги. Список «запрещенных» слогов находится в файле
errors.dat.  }
const
 punc = [#0..#127]-['0'..'9','A'..'Z','a'..'z','_'];
var
  f1, f2, errors: text;
  str: string;
  n: integer;
 
{Записывает строки в файл input.dat}
procedure write_input();
begin
  assign(f1, 'input.dat');
  rewrite(f1);
  write('Введите кол-во строк:');
 readln(n);
  for var i := 1 to n do
  begin
    readln(str); {вводим с клавиатуры строки}
    writeln(f1, str); {записываем последовательно строки в файл}
  end;
  close(f1);
end;
 
{Поиск отдельного слова в строке}
function find_word(s: string; i: integer): string;
var
  word: string;
begin
  while (i <= length(s)) and (not (s[i] in punc)) do
  begin
    word := word + s[i];
    i := i + 1;
  end;
  find_word := word;
end;
{Записывает строки в файл errors.dat}
procedure write_errors();
begin
  assign(f1, 'errors.dat');
  rewrite(errors,'errors.dat');
  write('Введите кол-во слогов:');
 readln(n);
  for var i := 1 to n do
  begin
    readln(str); {вводим с клавиатуры слоги, каждый слог с новой строчки}
    writeln(errors, str); {записываем последовательно слоги в файл}
  end;
  close(errors);
end;
{Функция проверки есть ли в слове запрещенные слоги, True = есть}
function check_word(word: String): Boolean;
var t: String; b: Boolean;
begin
  Reset(errors); b := False;
  while not EoF(errors) and not b do begin
    Read(t); b:=Pos(t,word)>0;
  end;
  Close(errors);
  check_word:=b;
end;
{Разделяет строку на слова, преобразует необходимые в нужный формат и выводит готовую строку}
function find_word(str: string): string;
var
  i: integer;
  word, slovo, out_slovo: string;
begin
    i := 1;
   while (i <= length(str)) do
        begin
          word := word + str[i];
          if (str[i] in punc) or ( i = length(str)) then
            begin
               slovo := word;                
               if (check_word(slovo) = true) then                  
               begin
                   for var j := 1 to length(slovo) do           
                   slovo[j] := UpCase(slovo[j]);
               end;
                word := '';
                out_slovo := out_slovo + slovo;
            end;
          i := i + 1;
        end;
  find_word := out_slovo;
end;
 
{замена прописные буквы заглавными в словах, содержащих
две и более подряд идущих одинаковых букв}
procedure BigLetters();
begin
  Reset(f1); {открываем первый файл для чтения} 
  assign(f2, 'output.dat'); {устанавливаем связь второй файловой переменной с
  физическим файлом}
  rewrite(f2); {открываем второй файл для записи} 
  while not eof(f1) do
  begin
    Readln(f1, str);{считываем очередную строку из первого файла}
      Writeln(f2, find_word(str)); {записываем во второй файл готовые отредактированные строки, удовлетворяющие условию}
  end;
  close(f1);
  close(f2);{заканчиваем работу с файлами}
end;
 
{Печатает что находится во втором файле output.txt}
procedure print_file();
begin
  Writeln('Второй файл содержит строки:');
  Reset(f2); {открываем второй файл для чтения}
  while not eof(f2) do {пока не конец второго файла}
  begin
    Readln(f2, str);{считываем очередную строку из второго файла}
    Writeln(str); {выводим строку на экран}
  end;
end;
 
begin
  write_input();
  write_errors();
  BigLetters();
  writeln;
  print_file();
end.

ReadLn(errors,t);

{Функция проверки есть ли в слове запрещенные слоги, True = есть}
function check_word(word: String): Boolean;
var t: String; b: Boolean;
begin
  Reset(errors); word:=UpperCase(word); b := False;
  while not EoF(errors) and not b do begin
    ReadLn(errors,t); b:=Pos(t,word)>0;
  end;
  Close(errors);
  check_word:=b;
end;

{Записывает строки в файл errors.dat}
procedure write_errors;
begin
  Rewrite(errors,'errors.dat');
  Write('Введите кол-во слогов:');
  ReadLn(n);
  for var i:=1 to n do
  begin
    ReadLn(str); {вводим с клавиатуры слоги, каждый слог с новой строчки}
    WriteLn(errors,UpperCase(str)); {записываем последовательно слоги в файл}
  end;
  Close(errors);
end;

const ferrName='errors.dat';
var
  Errs: array of String;
 
procedure read_errors;
var f: Text; t: String; n: Integer;
begin
  Assign(f,ferrName); Reset(f); n:=0;
  while not EoF(f) do begin
    ReadLn(f,t); Inc(n);
  end;
  Close(f); Reset(f); SetLength(Errs,n);
  for n:=0 to n-1 do begin
    ReadLn(f,t); Errs[n]:=UpperCase(t);
  end;
  Close(f);
end;
 
{Функция проверки есть ли в слове запрещенные слоги, True = есть}
function check_word(word: String): Boolean;
begin
  check_word:=True;
  word:=UpperCase(word);
  for var i:=0 to Length(Errs)-1 do
    if Pos(Errs[i],word)>0 then Exit;
  check_word:=False;
end;