program xren;
var
srav,sovpalo:integer;
const a:array[1..18] of integer=(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2);
const b:array[1..15] of integer=(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2);
Procedure Prefix;
Begin
P[1]:=0;
sovpalo:=0;
for j:=1 to 14 do
begin
for var i:=1 to 18-15 do
begin
Prefix;
sovpalo:= 0;
for var j:=1 to 15 do
begin
while (sovpalo>0) and (a[i+j]<>b[j]) do
sovpalo:=P[sovpalo];
if (a[i+j] = b[j]) then sovpalo := sovpalo +1;
srav:= srav + 1;
end;

if (sovpalo = 15) then
begin
writeln(i);
writeln(srav);
end;
end;
end;
end.
Накрутив шось отаке, сам нерозумію шо може хтось підправить ато з цим префіксом зовсім нічього нерозумію.

Берете псевдокод з вікіпедії і переписуєте кожен рядок на Паскаль (а сам рядок лишаєте поруч як коментар). Спробуйте.
І вам тут не обов'язково потрібні процедури, можна просто вбити код пошуку допоміжної таблиці на те місце, де він буде використаний на початку програми (тільки не забудьте полічити порівняння в ньому також).

pETRUk
Бачу у вас проблема зі змінними. Прочитайте отут розділ "Переменные": http://www.delphikingdom.com/asp/viewit … alogid=930 А тут можна почитати про процедури та функції: http://www.delphikingdom.com/asp/viewit … logid=1179

От там, де //..., і треба обчислювати T.
А ввід S,W можна зробити так:

{    вхід:
        масив символів, S (текст пошуку)
        масив символів, W (шукане слово)}
const S:array[1..18] of integer=(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2);
const W:array[1..15] of integer=(1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 2);

і, ще раз, дуже бажано всюди лишати як коментарі шматки псевдокоду - тоді одразу буде видно, де що робиться.