Определить вхождение строки в текст

program Poisk;
        uses crt;
         var
         t,s,tex,t2:string; p,i,d1,d2,d3,x:integer; text:array [1..100] of string;
begin
     clrscr;  { }
     textcolor(10);
     writeln('Введите текст');
     textcolor(15);
     readln(t);                 
      writeln;
     textcolor(10);
     writeln(‘Введите строку’);
     textcolor(15);
     readln(s);                 
      writeln;
      d3:=0;
        repeat
               textcolor(10);
               p:=pos(s,t);     
               if p=0 then
               if x>1 then
                begin
                writeln;
               writeln('Конец поиска. Для выхода нажмите Enter.')
               end
               else
            writeln('Такой строки в тексте не существует. Для выхода нажмите Enter.')  
               else
begin
              tex:=tex+text[x];
              d3:=length(tex);
               writeln;
              writeln('Образец входит в текст с  ',p+d3,'-ого символа '); 
                writeln;
             d1:=length(s);
           textcolor(15);
           write(tex);
           for i:=1 to p-1 do
           write(t[i]);
                for i:=1 to d1 do
                begin
                    textcolor(12);
                    write(s[i]);
                end;
d2:=length(t);
                       for i:= d1+p to d2 do
                         begin
                           textcolor(15);
                           write(t[i]);
                         end;
                    readln;
                 x:=x+1;
                 text[x]:=copy(t,1,p+d1-1);
                 delete(t,1,p+d1-1);
          end;
         until p=0;
     readln;
end.