Удаление начальных пробелов строки — Pascal(Паскаль)

program dledspa;
var
     st:string[30];
begin
     write('Введите строку:');
     readln(st);
     while (pos(' ',st) = 1) and (length(st)>0) do
          delete(st,1,1);
     write('Строка без начальных пробелов:',st);
end.