процедур и ыфункции. Паскаль

[Natasha190989]

Помогите преобразовать программу с использованием функции или процедуры. Программа ищет слово палиндром в строке

program sl;
uses crt;
{Function polind ( st:string):boolean;
var i,n:integer; K:boolean;
begin
k:=true;
n:=length (st);
for i:=1 to n div 2 do
if st[i] <> st [n+1-i] then
begin
k:=false;
break;
end;
 polind:=k;
 end;}
var
d:boolean;
SD,word:string;
npos,i,n:integer;
begin
clrscr;
write ('vvedite stroku');
read (sd);
sd:=sd+ ' ';
npos:=pos(' ',sd);
while npos<>0 do
begin
word:=copy (sd,1,npos-1);
n:=length (word);
d:=true;
i:=1;
while (i<=n div 2) and d do
if word[i]<> word[n-i+1] then
d:=false
else
i:=i+1;
if d then
write ('polind', word);
delete (sd, 1, npos);
npos:=pos(' ',sd);
readkey;
end;
end.