program abcd;
type a=array[1..10]of string;
var
K,f:a;
i,r:integer;
begin
r:=1;
writeln('введите название кинотеатра и нажмите enter');
for i:=1 to 10 do
readln(k[i]);
writeln('введите название фильма и нажмите enter');
for i:=1 to 10 do
readln(f[i]);
for i:=1 to 10 do
if f[i]='Титаник'
then r:=i;
writeln('Титаник идет в кинотеатре ',k[r]);
readln;