Функция удаляет начальные пробелы в строке — Pascal(Паскаль)

function LTrim(st:string):string;
      begin
        while (pos(' ',st) = 1) and (length(st)>0) do
           delete(st,1,1);
        LTrim:=st;
      end;