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

[dusya9992]

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

[Анатоль]

function perfect_func(s1 : string):string;
var
i,kol : integer;
s2 : string;
begin
kol := 0;
for i := 1 to length(s1) do
if (s1[i] <> ' ') or ((s1[i] = ' ') and (kol > 0) and (s2[ko] <> ' ')) then
begin
inc(kol);
s2[kol] := s1[i];
end;
if s2[kol] = ' ' then
delete(s2,kol,1);
perfect_func := s2;
end;


ну вроде так. мы просто пишем в новую строку все симвлы кроме пробелов
и пробелы если предыдущий записанный символ не был пробелом и потом если нужно удаляем 1 лишний пробел который мог появится в конце строки.