Дан файл словарь. Написать функцию, возвращающую слова заданной длины по шаблону (Турбо паскаль)

[АНДРЮНЯ]

Будьте добры,помогите составить прогу.
"Дан файл,содержащий слова русского языка построчно (словарь). Написать функцию возвращающую слова заданной длины, содержащее заданные буквы в указанных позициях."


_________
Название темы должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В дальнейшем темы с подобным названием будут закрываться/удаляться.

Модератор.

[Sparkman]

uses crt;
var etalon,filepath:string;
function findwords(slovo,filename:string):string; //функция поиска слова slovo в файле filename
var f:text; //файловая переменная
    i:integer;
    r,s:string; // r-результат выполнения функции
function itis(et,wd:string):string; // функция сравнения 2х слов: et - эталон (любые знаки "_" или "?"),wd - слово из файла
var b:boolean;
    id:integer;
begin
     b:=false;
     if length(et)=length(wd) then
     begin
          if et=wd then
             b:=true else
          begin
               b:=true;
               for id:=1 to Length(et) do
               if not(et[id] in ['_','?']) and (et[id]<>wd[id]) then
               begin
                    b:=false;
                    break;
               end;
          end;
     end;
     if b then itis:=wd else itis:='';
end;
begin
     r:='';
     assign(f,filename);
     reset(f);
     while not eof(f) do
     begin
          readln(f,s);
          r:=r+itis(slovo,s)+' ';
     end;
     close(f);
     findwords:=r;
end;
begin
     clrscr;
     readln(etalon);
     readln(filepath);
     writeln(findwords(etalon,filepath));
     readln;
end.

[АНДРЮНЯ]

душевное спасибо!а можно с некоторыми пояснениями??

[АНДРЮНЯ]

будь добр,объясни еще такие вещи как: что мы вводим в консоле

[АНДРЮНЯ]

вроде бы разобрался,но она вроде только находит такое же слово в файле и выводит его если оно есть,а нужно вывести слова заданной длины, содержащее заданные буквы в указанных позициях

[Sparkman]

Сообщение от АНДРЮНЯ

вроде бы разобрался,но она вроде только находит такое же слово в файле и выводит его если оно есть,а нужно вывести слова заданной длины, содержащее заданные буквы в указанных позициях

1) сначала вводим эталон - слово для поиска ("_" и "?" - спец символы, вместо них может быть любая буква);
2) затем путь к словарю, например c:\vocabulary.txt;
3) если в словаре слова на кириллице в кодировке win1251, то слова алгоритм не найдет, так как turbo pascal пишет буквы в кодировке DOS 866;
4) по условию задачи, слова в словаре записаны построчно, то есть в одной строке одно слово.