СРОЧНО ПОМОГИТЕ 7 КЛАСС

var i,s,d: Integer;
b: String;
begin
readln(b);
for i:=1 to length(b) do
begin
if b[i]='7' then
begin
s:=1;
d:=i;
end;
end;
if s=1 then writeln('Есть. Стоит на ',d,' месте') else
writeln('нет');
end.