Strict Standards: Declaration of action_plugin_importoldchangelog::register() should be compatible with DokuWiki_Action_Plugin::register($controller) in /DISK2/WWW/pavel-rimsky.cz/vyuka/wiki/lib/plugins/importoldchangelog/action.php on line 8

Strict Standards: Declaration of action_plugin_importoldindex::register() should be compatible with DokuWiki_Action_Plugin::register($controller) in /DISK2/WWW/pavel-rimsky.cz/vyuka/wiki/lib/plugins/importoldindex/action.php on line 0

Deprecated: Function split() is deprecated in /DISK2/WWW/pavel-rimsky.cz/vyuka/wiki/inc/auth.php on line 154

Deprecated: preg_replace(): The /e modifier is deprecated, use preg_replace_callback instead in /DISK2/WWW/pavel-rimsky.cz/vyuka/wiki/inc/auth.php on line 456

Deprecated: preg_replace(): The /e modifier is deprecated, use preg_replace_callback instead in /DISK2/WWW/pavel-rimsky.cz/vyuka/wiki/inc/auth.php on line 456

Deprecated: preg_replace(): The /e modifier is deprecated, use preg_replace_callback instead in /DISK2/WWW/pavel-rimsky.cz/vyuka/wiki/inc/auth.php on line 453

Strict Standards: Only variables should be passed by reference in /DISK2/WWW/pavel-rimsky.cz/vyuka/wiki/doku.php on line 71
<code pascal>

function indexPodretezce(retezec, podretezec: string): integer;
var
  zacatek: integer;
  indexRet, indexPodret: integer;
  nachaziSeTu: boolean;
begin
  for zacatek := 1 to length(retezec) - length(podretezec) + 1 do begin
      indexRet := zacatek;
      indexPodret := 1;

      nachaziSeTu := true;
      while indexPodret <= length(podretezec) do begin
          if retezec[indexRet] <> podretezec[indexPodret] then
              nachaziSeTu := false;
          inc(indexRet);
          inc(indexPodret);
      end;

      if nachaziSeTu then begin
          indexPodretezce := zacatek;
          exit;
      end;
  end;

  indexPodretezce := 0;
end;

var
  retezec, podretezec: string;
begin
  readln(retezec);
  readln(podretezec);
  writeln(indexPodretezce(retezec, podretezec));
end.

</code>