ошибка переполнения стека, Не вьіполняється поиск Опции

[Юрко]

Здравствуйте, Представляю кусок програмьі. Надо огранизовать поиск в по слову в одной записе, тоисть запись

type  comp=record
      firm:string;
      n:string;
      x:string
      end;

организуєм поиск в записе х, по вьідает ошибку переполнения стека, хотя в строчке пару слов. Может я не правильно что-то делаю, или как с єтим бороться?

procedure found(var firm,n,x:string);
var chose,data,firm2,n2,x2,y1:string;
    wrd:array [0..225] of string;
    k3:integer;
    cnt:byte;
    i,j:integer;
begin
clrscr;

assign(F, komplek);
reset(F);

writeln('vvedite harakteristiku'); readln(x2);
while not Eof(F) do with c do begin
readln(F, firm);
readln(F, n);
readln(f, x);
x:=x+' ';
  while (x<>'')and(pos(' ',x)<>0) do
  begin
    inc(cnt);
    wrd[cnt]:=copy(x,1,pos(' ',x)-1);
    delete(x,1,pos(' ',x));
    inc(j);
  end;

writeln;
for i:=1 to j do begin
  y1:=wrd[i];
  if x2=y1 then
writeln(firm, n:6, n1, x)
end;
close(F);
end.
 

Сообщение отредактировано: Юрко - 11.01.2009 11:29