Помогите найти ошибку pascal

Unit primer;
interface
Procedure probel(var s:string );
Procedure probel2(var s:string);
Function prob_nach (s:string):string;
Function prob_con (s:string):string;
Function prob_dv (s:string):string;
implementation

Function prob_dv (s:string):string;
Begin
while (pos(' ',s)=1) and (pos(' ',s)=length(s)) do begin
delete (s,1,1);
delete (s,length(s),1);
end;
prob_dv:=s;
end;

Function prob_nach (s:string):string;
Begin
while pos(' ',s)=1 do delete (s,1,1);
prob_nach:=s;
end;

Function prob_con (s:string):string;
Begin
while pos(' ',s)=length(s) do delete (s,length(s),1);
prob_con:=s;
end;

Procedure probel(var s:string);
begin
while pos(' ', s)>0 do
delete(s, pos(' ', s), 1);
end;

Procedure probel2(var s:string);
begin
while pos(' ', s)>0 do
delete(s, pos(' ', s), 1);
end;
begin
end.

говорит имя модуля должно совпадать с именем файла, pascalABC указывает на ошибку в первой строке