поиск слова(паскаль)

[MetR]

мне нужно написать программу, которая ищет слово в массиве(массив заполняется из файла), если слово найдено то нужно написать что слово найдено и под каким номером, если слова такого нет, то его нужно добавить.
я вот тут что-то написал, но она почему то не находит слова, а только добавляет, в чем здесь ошибка?

program poiskword;
uses crt;
const n=1000;
type mas=array[1..n] of string;
var
slova:text;
A:mas;
i,j,h,p:integer;
s,sp:string;
b:boolean;

procedure sort(nword:integer; var word:mas); {лексикографическое }
var
isort,jsort:integer;
c:string;
begin
For isort:=1 to nword-1 do                       { упорядочение }
    For jsort:=isort+1 to nword do
      If word[isort]>word[jsort] then
        begin
           c:=word[isort]; word[isort]:=word[jsort]; word[jsort]:=c; { слов }
        end;
end;

procedure vivod(nB:integer; var B:mas);  { процедура }
var k,l,iviv:integer;
begin
  k:=0; l:=1;
  for iviv:=1 to nB do begin                  { вывода }
  k:=length(B[iviv])+k+4;
  if k/69 > l then begin writeln; inc(l);end;
  write(iviv,') ',B[iviv],' '); end;
writeln;                                  { массива }
end;

begin
assign(slova,'massiv.txt');
repeat
reset(slova);
p:=0;
repeat
  inc(p);
  readln(slova,s);
  a[p]:=s;
  if a[p]='' then begin J:=p-1; break; end;
until a[p]='';
close(slova);
sort(j,A);
vivod(J,A);

write('vedite slovo dla poiska: '); readln(sp);
append(slova);
for i:=1 to j do if A[i]=sp then begin b:=true; h:=i; end else b:=false;
if b=true then writeln('slovo naideno pod nomerom ',h)
          else writeln(slova,sp);
close(slova);
clrscr;
until keypressed;
readln;
end.

[Stilet]

И опять я привожу код разбивающий строку на слова:
http://www.programmersforum.ru/showt...369#post398369
Оберни его в функцию, и получив массив, пройдись по нему циклом.
Смысл понял?

[MetR]

я написал процедуру, но у меня почему то массив не заполняется...

[Stilet]

Может быть потому что для изменяемых параметров нужно для каждого указывать var

procedure massiv( sm:string; var C:mas; var count:integer);

[MetR]

оО Спасибо) а я думал что надо 1 раз писать вар перед изменяемыми параметрами... но все таки проблема осталась прежней, он не находит совпадающие слова...

program poiskword;
uses crt;
const n=1000;
type mas=array[1..n] of string;
var
slova:text;
A:mas;
i,j,h,p:integer;
s,sp:string;
b:boolean;

procedure sort(nword:integer; var word:mas); {лексикографическое }
var
isort,jsort:integer;
c:string;
begin
For isort:=1 to nword-1 do                       { упорядочение }
    For jsort:=isort+1 to nword do
      If word[isort]>word[jsort] then
        begin
           c:=word[isort]; word[isort]:=word[jsort]; word[jsort]:=c; { слов }
        end;
end;

procedure vivod(nB:integer; var B:mas);  { процедура }
var k,l,iv:integer;
begin
  k:=0; l:=1;
  for iv:=1 to nB do begin                  { вывода }
  k:=length(B[iv])+k+4;
  if k/69 > l then begin writeln; inc(l);end;
  write(iv,') ',B[iv],' '); end;
writeln;                                  { массива }
end;

procedure massiv( sm:string; var C:mas; var count:integer);   { процедура }
var im:integer;
begin
count:=1;                                       { заполняет }
 im:=1; while (im<=length(sm)) do begin
   if sm[im]=' ' then begin inc(count); inc(im); end;  { массив }
   C[count]:=C[count]+sm[im];
   inc(im);                                      { словами }
 end;
end;                                              { из файла }

begin
assign(slova,'massiv.txt');
repeat
for i:=1 to n do A[i]:='';
s:='';
reset(slova);
read(slova,s);
close(slova);
massiv(s,A,j);
sort(j,A);
vivod(J,A);

write('vedite slovo dla poiska: '); readln(sp);
append(slova);
for i:=1 to j do if A[i]=sp then begin b:=true; h:=i; end else b:=false;
if b=true then writeln('slovo naideno pod nomerom ',h)
          else write(slova,' '+sp);
close(slova);
clrscr;
until keypressed;
readln;
end.

[eoln]

for i:=1 to j do if A[i]=sp then begin b:=true; h:=i; end else b:=false;

если слово найдено, цикл надо прерывать.
Или так можно

write('vedite slovo dla poiska: '); readln(sp);
append(slova);
b:=false;
for i:=1 to j do if A[i]=sp then
begin
  b:=true;
  writeln('slovo naideno pod nomerom ',i) // на случай совпадения слов
end;
if not b then write(slova,' '+sp);
close(slova);

[MetR]

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

если слово найдено, цикл надо прерывать.

точно, совсем забыл про это, не первый же раз с такой ошибкой сталкиваюсь)))

Stilet, eoln спасибо вам большое, теперь все прекрасно работает)))