Pascal/Turbo Pascal - programa con cadena ayudaa!!!

este s un programa q presenta una pequeña averia en el if...x fa quien la descubri decirmee el errorr lo presenta al momento en q digito una palabra q no sta en el texto... sigue corriendo y la gracia esq diga q no esta esa palabra en la cadena

program x;
uses crt;
var
a,b,c,d:string;
i,t,a1:integer;

procedure leer;
begin
writeln('digite un texto');
readln(a);
end;

procedure leer2;
begin
clrscr;
writeln('digite la palabra que quiere buscar');
readln(b);
clrscr;
writeln('digite la palabra por la que la desea cambia');
readln(c);
a1:=pos(b,a);
if (a1=0) then
begin
writeln('la palabra no se encuentra dentro del texto')
end;
end;

procedure le;
begin
if(a1<>0)then
begin
delete(a,a1,length(b));
insert(c,a,a1);
t:=t+1;
writeln(a);
end;
end;

procedure fer;
begin
clrscr;
writeln(a);
writeln('desea hacer otro cambio en la frase si o no');
read(d);
if (d='si') then
leer2
else
writeln('el total de cambios hechos es de ',t);
end;



begin
clrscr;
leer;
leer2;
le;
fer;
readkey;
end.