помогите с функциями в паскале

[GaJIbI4]

У меня задача: заменить каждую группу пробелов одним пробелом с использованием функций. Паскаль ругается на строку
Function pr(st:string):string;
пишет Error 113: Error in statement
хз чё делать

var
st: string[15];
begin
write('Vvedite stroku= ');
readln(st);

Function pr(st:string):string;
begin
while pos('  ', st) > 0 do
delete(st, pos('  ', st), 1);
pr:=st;
end;

st:=pr
writeln('Stroka = ', st);
end.

[MalexG]

Судя по листингу вы не туда поместили описание функции pr().
Описание всех процедур и функций следует размещать в разделе описаний, а именно:

Programm MyProg;
  {Раздел описаний}  <- здесь надо описать функции и процедуры
begin
  {Раздел оператов}  <- здесь их надо использовать
end;

[GaJIbI4]

Спасибо тебе MalexG.
Вот готовый вариант мб кому пригодиться.

var st,s: string[15];

Function pr(s:string):string;
begin
s:=st;
while pos('  ', s)>0 do
delete(s, pos('  ', s), 1);
pr:=s;
end;

begin
write('Vvedite stroku = ');
readln(st);
st:=pr(s);
writeln('Stroka = ', st);
end.

[eoln]

1)

var st,s: string[15];

Переменную s не надо объявлять, т.к она используется в качестве параметра функции.

2) Надо так

st:=pr(st);

3)

Function pr(s:string):string;
begin
while pos('  ', s)>0 do
delete(s, pos('  ', s), 1);
pr:=s;
end;

Переменная st не должна тут фигурировать, иначе зачем вообще есть параметры у функции

Итого

var st: string[15];

Function pr(s:string):string;
begin
while pos('  ', s)>0 do
delete(s, pos('  ', s), 1);
pr:=s;
end;

begin
write('Vvedite stroku = ');
readln(st);
writeln('Stroka = ', pr(st));
end.