mno...
ty asi chceš napřed všechny podřetězce načíst do pole a pak zpracovat, ale to tvůj program nedělá. Ty načteš hlavní řetězec (k), zřejmě počet podřetězců (n) a pak se pokoušíš načíst do pole podřetězce. Jenže načteš jeden do pole a začneš hned porovnávat.
A tam se v tom zamotáš.
Takže napřed načíst všechno do pole

...
  readln(k); //hlavni retezec
  readln(n); //pocet podretezcu
  m:=0;
  repeat
    readln(pole[m]);
    m:=m+1;
  until m=n;
...

a teď máš všechny podřetězce v poli a můžeš porovnávat -
jestli chceš mermo použít proměnnou kousek tak postupně dávat kousek:=pole[m] a v dalším cyklu testovat řetězec kousek proti řetězci k.

Pozor ať se ti cykly nezkříží.
A nenech se otrávit. Každý nějak začínal.