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

[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.

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

[Stud]

Кстати насколько большой может быть процедура?

[andriano]

Кстати насколько большой может быть процедура?

А что значит "большой"? Что ты предлагаешь использовать в качестве "размера"?
1. количество строк текста,
2. количество алифметических/логических операций?
3. длину текста в символах?
4. суммарный объем всех локальных переменных?
5. объем скомпилированного кода?
6. что-то еще.

Максимальное значение 4 и 5, как правило, устанавливаются в опциях компилятора.

По поводу второй задачи: не увидел ее условия. Что она должна делать?