Подпрограммы

[DrDre9991]

выручайте заранее спасибо!!!

Написать функцию обработки строки, которая удаляет в заданной строке пробелы в начале строки, пробелы в конце строки и повторяющиеся пробелы (рядом стоящие).

[Niro]

проверяй

uses crt;
  var s: string;
  i: integer;
BEGIN
   clrscr;
   readln(s);
   for i:=1 to length(s) do
   if (s[i]=' ') and (s[i+1]=' ') then begin
                                          delete(s,i,2);
                                          end;
   for i:=1 to length(s) do
   if s[i]=' ' then begin delete(s,i,1); break; end;

   for i:=length(s) downto 1 do
   if s[i]=' ' then begin delete(s,i,1); break; end;

   writeln('-------------------');
   writeln(s);
   readln;
END.

а в функцию оформишь сам