Помогите с прогой в паскале

[GaJIbI4]

У меня такая задача: дана последовательность символов среди которых есть пробелы. Заменить каждую группу пробелов одним пробелом с использованием функций.

Вот чё сам пытался сделать, функции незнаю как использовать

var
s1:array[1..15] of string;
i,n,m:integer;
begin
Write('Vvedite 15 simvolov: ');
ReadLn(s1[i]);
n:=pos(' ',s1[i]);
m:=n;
for i:=n to 15 do
begin
if s1[i]=' ' then
m:=m+1;
end;
for i:=n to m-1 do
begin
delete(s1[i],n,1);
end;
WriteLn('Stroka: ',s1[i]);
end.

[eoln]

Много раз этот способ встречается на форуме while pos(' ', s) > 0 do delete(s, pos(' ', s), 1);

var
  st: string;
begin
  write('stroka = ');
  readln(st);
  while pos('  ', st) > 0 do delete(st, pos('  ', st), 1);
  write('otvet = ', st);
  readln
end.

[puporev]

pos(' ', st)

Уточним, что в апострофах два пробела, а то можно и не понять.

[eoln]

Сообщение от puporev

Уточним, что в апострофах два пробела, а то можно и не понять.

Ага, точно. В коде пробела 2, а вот в первой строке один (форум так делает). Вот ещё вариант решения - отправляем строку на форум и читаем, все лишнии пробелы удалятся

[puporev]

Тоже способ, надо запомнить.

[GaJIbI4]

Сообщение от eoln

Много раз этот способ встречается на форуме while pos(' ', s) > 0 do delete(s, pos(' ', s), 1);

var
  st: string;
begin
  write('stroka = ');
  readln(st);
  while pos('  ', st) > 0 do delete(st, pos('  ', st), 1);
  write('otvet = ', st);
  readln
end.

как этот код в паскале оформить в процедуру? Просто мою задачу необходимо решить с использованием процедуры.

Сообщение от GaJIbI4

Заменить каждую группу пробелов одним пробелом с использованием функций.