Работа с файлами (удалить слово из строки) - Free Pascal

Program deleter;
type fil=text;
var f1,f2:fil;
a,b:string;
Procedure reader(var f1:fil;a,b:string);
begin
reset(f1);
readln(f1,a);
close(f1);
Writeln(A);
writeln('Kakoe slovo neobhodimo udalit?');
readln(b);
end;
procedure deleter(var a,b:string);
begin
 while pos(b,a)>0 do
 delete (a,pos(b,a),length(b));
end;
procedure writer(var f:fil;a:string);
begin
readln;
rewrite(f2);
writeln(f2,a);
close(f2);
end;
begin
assign(f1,'Input.txt');
assign(f2,'Output.txt');
reader(f1,a,b);
deleter(a,b);
writer(f2,a);
end.