Program Hledani;

var puvodni, hledany, pomocny, prvni: String;
    delka, j, k: integer;
    pasuje: boolean;

begin
  puvodni := 'U nikdy nebudu uit spoluky ltat';
  writeln('V tomto textu je mon hledat v etzec:');
  writeln();
  writeln(puvodni);
  writeln();
  writeln('Zadej hledan etzec: ');
  readln(hledany);
  if length(hledany) <= length(puvodni) then
  begin
    delka:=length(hledany);
    pasuje:=False;
    prvni := hledany[1];
      for j:=1 to length(puvodni) do
      begin
        if puvodni[j] = prvni then
        begin
          pomocny:='';
          for k:=j to j+delka-1 do
            pomocny:=pomocny+puvodni[k];
          if pomocny = hledany then
            pasuje := True;
        end;
      end;
    if pasuje then
      writeln('pasuje')
    else writeln('nepasuje');
  end
  else writeln('Hledan etzec je del ne pvodn etzec');
  readln();
end.

