Pascal/Turbo Pascal - error en programa

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.

No es de mala onda, pero ese codigo es un asco!
Variables globales en vez de parametros; identificadores de variables de 1 digito (a, b, c) en vez de ponerles PalabraBuscar, TextoReal, PalabraCambiar, etc.
Lo mismo para los modulos... un procedimiento se llama "fer" y otro se llama "le".
Limpialo un poco. Se mas prolijo.
Asi no dan ganas de testear tu codigo master... ayudanos a ayudarte no?