Индекс находится вне границы массива

[Max$$]

pascal abc, при отладке выдает ошибку, в чем дело, подскажите?
uses crt;
function MyPos(ps,st:string):byte;
var n,m,i,j,p:byte;
s:string;
begin
p:=0;
n:=ord(st[1]);
m:=ord(ps[1]);
for i:=1 to n-m+1 do
if st[i]=ps[1] then
begin
s:='';
for j:=i to i+m-1 do
s:=s+st[j];
if s=ps then
begin
p:=i;
break;
end;
end;
MyPos:=p;
end;
var s,s1:string;
begin
clrscr;
writeln('Строка:');
readln(s);
writeln('Подстрока:');
readln(s1);
write(MyPos(s1,s));
readln
end.

[Аватар]

n:=ord(st[1]);
m:=ord(ps[1]);

Это что?

[newerow1989]

Сообщение от Аватар

Это что?

Похоже это порядковый номер первого символа в таблице ASCII

function MyPos(ps,st:string):byte;
var i,j,p:byte;
    s:string;
begin
   p:=0;
   for i:=1 to Length(st)-Length(ps)+1 do
      if st[i]=ps[1] then
      begin
         s:='';
         for j:=i to i+Length(ps)-1 do
            s:=s+st[j];
         if s=ps then
         begin
            p:=i;
            break;
         end;
      end;
   MyPos:=p;
end;