функция pos

[drumerbaker]

помогите, пожалуйста описать функцию pos-стандартная функция в delphi, но надо её описать, как она работает,надеюсь понятно изъяснился)),но при этом использовать copy и delete использовать нельзя.спасибо

[evg_m]

for j:=1 to length(source)-length(txt) do
begin
res:=true;
for jj:=1 to length(txt) do
begn
  if txt[jj]<>source[j+jj] then begin res:=false; break; end;
end;
if res then begin result:=j; break; end;
end;

[evg_m]

j:=1; jj:=1;
while j<length(source)-length(txt) do
begin
   if txt[jj]=source[j+jj] then jj:=jj+1 else begin j:=j+1; jj:=1; end;
   if jj>length(txt) then begin result:=j;break; end;
end;

[drumerbaker]

Сообщение от evg_m

j:=1; jj:=1;
while j<length(source)-length(txt) do
begin
   if txt[jj]=source[j+jj] then jj:=jj+1 else begin j:=j+1; jj:=1; end;
   if jj>length(txt) then begin result:=j;break; end;
end;

но она не работает

  function poz(s,s1:string): integer;
  var i,j:integer;
begin
j:=1;
i:=1;
while j<(length(s)-length(s1)) do
  begin
    if s1[i]=s[i+j] then i:=i+1
      else begin
        j:=j+1;i:=1;
      end;
    if i>length(s1) then
    begin
      result:=j;break;


    end;
  end;
end;
var s,s1:string;

begin
readln(s);
readln(s1);
writeln(poz(s,s1));
readln;

[MalCer]

  function poz(s,s1:string): integer;
  var i,j:integer;
begin
j:=1;
i:=1;
while j<(length(s)-length(s1)) do
  begin
    if s1[i]=s[i+j] then i:=i+1
      else begin
        j:=j+1;i:=1;
      end;
    if i>length(s1) then
    begin
      result:=j;break;


    end;
  end;
end;
var s,s1:string;

begin
readln(s);
readln(s1);
writeln(poz(s,s1));
readln;

Эта функция работает! В чем проблема?

[drumerbaker]

блин, у меня эта функция постоянно выводит 4205540...на да ладно, вот написал, посмотрите,пожалуйста, как тута чё облегчить и из цикла выйти

 begin
readln(s);
readln(s1);
if length(s1)>length(s) then
  a:=0
  else
    begin
      d:=1;J:=1;I:=1;k:=1;
      while j<=(length(s)-length(s1))+1 do
        begin
          while k<=length(s) do
            begin
                if s1[i]=s[k] then
                begin
                i:=i+1;K:=k+1
                end
               else begin
                  j:=j+1;i:=1;d:=d+1;K:=d;
               end;
             if i>length(s1) then
             begin
               a:=j;writeln(a);break;{как выйти из главного цикла}
             end;
            end;

        end;
    end;
  { TODO -oUser -cConsole Main : Insert code here }
end.

[drumerbaker]

всем спасибо, уже всё исправил))