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

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

сейчас смеяться будете, но я представляю программу таким образом

var
word:string;
s1,s2: string;
p: Byte;
procedure proc1(var s1,s2: string;p: Byte;);
while (length(s1)>0) do
  begin
  word:=copy(s1,1,p);
  delete(s1,1,length(word));
  if pos(word,s1)>0 then
   begin
   s2:=(s2+' '+word);
   while (pos(word,s1)>0) do
   delete(s1,pos(word,s1),length(word));
end;
 end;
procedure proc2(var s1: string; p: Byte;);
    begin
    if p=0 then
    s1:=' ';
    p:=pos(' ',s1);
end;
begin
word:=('s1');
write('Imput phrase: ');
readln(s1);
p:=pos(' ',s1);
proc1(s1,s2);
proc2(s1);
writeln('Modified string: ',s2);
readln;
end.

Сообщение отредактировано: Stud - 25.12.2007 16:08