Найти ошибку в файле

unit Modul;
interface
type
  Tstring=array[1..100] of string;
function Udalenie (s:string): string;
function Odinprobel(S:string;B:boolean):string;
function Dvaprobel(S:string) :string;
implementation
function Udalenie(s: string): string;
begin
  repeat begin
  if s[1] = ' ' then begin
  Delete(s, 1, 1); end; end;
  until s[1]<>' ';
  Udalenie := s;
end;
function Odinprobel(S:string;B:boolean):string;
Begin 
   while pos('  ',s)>0 do delete(s,pos('  ',s),1);  if B then
   Begin  if s[1]=' ' then delete(s,1,1);
         if s[length(s)]=' ' then delete(s,length(s),1);
   End;
   Odinprobel:=s;
 End;
function Dvaprobel(S:string ):string;
var i,j:integer;
begin
    while (Pos(' ',s) > 0) do
          begin insert('[_=_]', s, Pos(' ',s)); delete(s, Pos(' ', s), length(' '));
           end;
     while (Pos('[_=_]',s) > 0) do
           begin insert('  ', s, Pos('[_=_]',s)); delete(s, Pos('[_=_]', s), length('[_=_]'));
           end;
      Dvaprobel :=s;
end; end.

program biblioteka;
uses crt, Modul;
var
    s:string;
    b: boolean;
begin
    clrscr;
    write ('Vvedite stroku: '); readln(s);
    s:=Udalenie(s);
    s:=Odinprobel(s, b);
    s:=Dvaprobel (s);
   writeln ('Uporyadochennaya stroka: ',s);
readln;
end.