Удаляет из строки начальные пробелы
{ Удаляет из строки начальные пробелы } function LTrim(st: string): string; begin
while (posC \st) = 1) and (length (st) > 0) do
delete(st,1,1); LTrim:=st; end;
{ проверка работы функции LTrim} var
s:string[80]; { строка } begin
writeln('Удаление из строки начальных пробелов.');
write('Введите строку ->');•
readln (s);
write('Строка без начальных пробелов:',LTrim(s));
readln; end.
