Процедуры и ф-ии, Помогите с решением Опции

[Stud]

Народ помогите разобраться с процедурами.
Программа:
1. Заменить все имеющиеся пробелы во введенной строке на запятые.
это я сделал

var
s:string;
i,j,n:integer;
begin
writeln('vvedite stroku');
readln(s);
n:=length(s);
for i:=1 to n do
if s[i]=' ' then
   s[i]:=',';
writeln(s);
readln;
end.

теперь нужно решить эту программу с помощью процедур и функций

вот мой нерабочий вариант

var
s:string;
i,n:integer;
begin
Procedure zamena(i,n: integer; s: string);
n:=length(s);
for i:=1 to n do
if s[i]=' ' then
   s[i]:=',';
end;
begin
writeln('vvedite stroku');
readln(s);
zamena(s);
writeln(s);
readln;
end.

Подскажите что делаю неправильно?

[volvo]

Turbo Pascal limits the size of a statement part to about 24K.

Больше в одну процедуру тебе втолкать не удастся... Придется разбивать на несколько (процедур или модулей). Только не совсем понятно, как этот вопрос связан с названием топика? Общее слово "процедура"?