function DlinaStroki(s: string; dlina_s: integer; ch: char): string;
begin
   While Length(s)<dlina_s do
      s:=ch+s;
   Result:=s;
end;

где

s - исходная строка;

dlina_s - минимальное количество символов;

ch - заполнитель слева.

Например, DlinaStroki('85672', 7, '0') выведет '0085672'; DlinaStroki('пианино', 10, '!') выведет '!!!пианино'.