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.
Сообщение отредактировано: Юрко -