01 семестр / К экзамену-зачёту / Все задачи с экзамена в формате PAS / Alex / SEARCH

program sear;
uses crt;
var f:text;
s,l:string;
x,i:integer;
begin
clrscr;
write ('‚ўҐ¤ЁвҐ Ё¬п д ©«  Ї®ЁбЄ : ');
readln (s);
assign(f,s);
reset(f);
write ('‚ўҐ¤ЁвҐ да Ј¬Ґ­в: ');
readln (l);
i:=0;
repeat
inc(i);
readln (f,s);
x:=pos (l,s);
if x<>0 then writeln ('”а Ј¬Ґ­в ­ е®¤Ёвбп ў бва®ЄҐ ',i,', ў Ї®§ЁжЁЁ ',x);
until eof (f);
close (f);
readln;
end.