var input:text;
s,Find:string;
begin
assign(input,'c:bpworkinput.txt');
reset(input);
ReadLn(Find);
While not EOF(input) do
begin
ReadLn(input,s);
if pos(Find,s)<>0 then {Если нужно не любое совпадение, а именно с начала, то кажется =1}
WriteLn(s)
end;
close(input)
end.
Сообщение отредактировано: volvo -