нужно дописать прогу по поиску подстроки в строке, т.к. возникли небольшие проблемы с типом переменных

[juicy_2011]

program poick;
var 
  s,x: string;
  m,n,i,io,j: integer;
  d:array['a'..'z'] of integer;
  ch: char;
begin
  writeln ('введите строку');
  readln(s);
  writeln ('введите образ');
  readln(x);
   n:=length(s);
   m:=length(x);
    for ch:='a' to 'z' do 
    d[ch]:=m;
    for j:=1 to m do
    p[j]:=m-j;
    j:=m+1; 
    io:=0;
      repeat 
        j:=m+1; 
        k:=i;
         repeat
          k:=k-1;
          j:=j-1;
         until (j<1) or (p[j]<>s[i]);
         i:=i+d[s[i-1]]
      until (j<1) or (i>n)
    if j<1 then
    writeln ('OK');
    readln;
end.

[Pein95]

а стандартную фу-цию нельзя использовать?

[juicy_2011]

в том то и дело, что нет! препод дал примерное решение, но прог-ма не работает. не могу разобраться с типами переменных!

[Pein95]

ну блин скажыте где какая ошыбка и код нужно оформлять тегами
["code"]["/code"]
и сделайте етот код читабельным

[Pein95]

а алгоритм может быть такой:
узнаем длину подстроки с помощю фун-ции (length)
и потом пробегатса по основной строке посимвольно и копировать строку длина какой будет равна длине искомой строки

[juicy_2011]

в общем получается так, дана часть программы и мне нужно привести её в рабочий вид! такое возможно с такой частью прог-мы?!

[Step_UA]

незнаю насчет дописать, мне легче написать ...

var s,x:string;
 lx,ls,i,j:integer;
begin
 write('Введите строку: ');
 readln(s);
 write('Введите образ: ');
 readln(x);
 lx:=length(x);
 ls:=length(s)-lx+1;
 i:=0;
 j:=1;
 while (i<ls) and (j<>0) do
   begin
     j:=lx;
     inc(i);
     while (j>0) and (x[j]=s[i+j-1]) do
       dec(j);
   end;
 if j=0 then writeln('Ok');
 readln
end.

j=0 если подстрока входит в строку s
i - указывает на начало подстроки х, в строке s

[juicy_2011]

СПАСИБО)))