помогите с паскалем, модули

unit
unit1;
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
Writeln('Введите текст');
readln(s);
while (pos(' ',s)=1) and (pos(' ',s)=length(s)) do begin
delete (s,1,1);
delete (s,length(s),1);
end;
prob_dv(worry);
end;

Function prob_nach (s:string):string;
Begin
Writeln('Введите текст');
readln(s);
while pos(' ',s)=1 do delete (s,1,1);
prob_nach(worry);
end;

Function prob_con (s:string):string;
Begin
Writeln('Введите текст');
readln(s);
while pos(' ',s)=length(s) do delete (s,length(s),1);
prob_con(worry);
end;

Procedure probel(var s:string);
begin
Writeln('Введите текст');
readln(s);
while pos(' ', s)>0 do
delete(s, pos(' ', s), 1);
end;

Procedure probel2(var s:string);
begin
Writeln('Введите текст');
readln(s);
while pos(' ', s)>0 do
delete(s, pos(' ', s), 1);
end;
begin
writeln('');
readln(i);
case i of

'1': prob_nachalo(s);
'2': prob_konec(s);
'4': prob_storoni(s);
'3': prob_lishnii(s);
'5': prob_vse(s);
else writeln('введите число от 1 до 5');
end;

uses crt,
unit1;
var text:string;
i:char;
begin
writeln('1.удалить пробелы в начале строки. ');
writeln('2.в конце строки. ');
writeln('3.с двух концов. ');
writeln('4.Удаление лишних пробелов .');
writeln('5.Удаление всех пробелов в строке. ');
writeln('Напишите номер действия, которое будет совершено с текстом');
readln (i);
case i of
'1': nachalo(text);
'2': konec(text);
'3': storoni(text);
'4': lishnii(text);
'5': vse(text);
else writeln('Введите цифру от 1 до 5');
end;
end.

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