[Pistoletka]

Реализация алгоритма «Кодировочная книга». При этом будем считать, что кодом служит позиция слова в кодировочной книге (специально подготовленном файле), причем, если слово встречается несколько раз и в открытом тексте, и в кодировочной книге, в закрытом тексте для одного и того же слова будут использованы разные коды.

Код:

program Lab41;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
 tbookword=record
                  w:string;
                  wasfound:boolean;
                 end;
 tbookdata=array of tbookword;
 var s:string; //вводимый открытый текст
      w:string; // для выделения отдельного слова
      i:integer; 
      st: string; // закрытый текст
      tb:tbookdata; // для загрузки кодировочной книги
 function loadbook:tbookdata;
 var f:text;
      z:string;
  begin
   result:=nil;
   assignfile(f,'E:\Labs\Кодировочная книга.txt');
   reset(f);
   //Length(Result) – кол-во элементов в массиве
   //SetLength(Result, n) – выставить кол-во элементов в массиве = n
   while not Eof(f) do
    begin
     readln(f,z);
     SetLength(result,Length(result)+1);
     result[length(result)-1].w:=z;
     result[length(result)-1].wasfound:=false;
    end;
   closeFile(f);
  end;
 function number_of_word(w:string; var tb:tbookdata):integer;
 var lastfound, i:integer;
  begin
   result:=-1;
   lastfound:=-1;
   for i := 0 to length(tb)-1 do
    begin
     if (tb[i].w=w) then
      begin
       if (result<0) and (not tb[i].wasfound) then
        begin
         result:=i;
         tb[i].wasfound:=true;
        end;
       lastfound:=i;
      end;
     end;
   if result>=0 then
    begin
     if result=lastfound then
      for i := 0 to length(tb)-1 do
       if tb[i].w=w then tb[i].wasfound:=false;
     result:=result+1;
    end;
 end;

begin

writeln('vvedite text :');
 readln(s);
 i:=1;
 st:='';
 tb:=loadbook;
 while i<=length(s) do
  begin
   while (i<=length(s)) and (s[i]=' ') do i:=i+1;
   w:='';
   while (i<=length(s)) and (s[i]<>' ') do
    begin
     w:=w+s[i];
     i:=i+1;
    end;
  if w<>'' then
   begin
   st:=st+IntToStr(number_of_word(w,tb)) + ' ';
   end;
  end;
  writeln(' close text:', st);
  readln;
end.

Неверно выводит закодированный текст. Подскажите в чем проблема?

[ShamanVV]

А что именно выдает? И что должно выдавать?

[Pistoletka]

Сообщение от ShamanVV

А что именно выдает? И что должно выдавать?

Выдает: -1 -1 -1 -1. А должно выдавать так: 1012151116191413, тут 4 слова закодированы, первые 2 цифры строка, потом 2 цифры позиция элемента в строке. Например, 1012 - 10 строка, 12 элемент.