Dze je subor www.TrSek.com/zadania/txtretazec.pas{ TXTRETAZEC.PAS Copyright (c) Pheo }
{ Program predvedie pracu s txt suborom, v ktorom bude hladat }
{ pozadovane meno, aspon ciastocne zadane zo vstupu, po zadani }
{ vstupu, program vrati cislo riadku, v ktorom sa nachadza dane }
{ meno, vypise meno a cislo telefonu, inak vypise oznam, ze dane }
{ meno sa v subore nenachadza, ako txt subor moze byt pouzity }
{ aj zdrojak. }
{ }
{ Datum:06.04.2005 http://www.trsek.com }
program txtretazec;
uses crt;
var riadok:string;
hladany,slovo:string[80];
subor:text;
c:byte;
p:boolean;
begin
clrscr;
assign(subor,'txtret.pas');
reset(subor);
writeln('Zadaj hladane meno: ');
readln(hladany);
c:=1;
p:=true;
repeat
readln(subor,riadok);
if pos(hladany,riadok)<>0 then
begin
writeln('Pozadovany udaj som nasiel v riadku: ',c);
writeln('cislo tel.:',riadok);
p:=false;
end;
inc(c);
until eof(subor);
if p then write('Meno som nikde nenasiel.');
close(subor);
readln;
end.