[Warchief]

Ребята помогите пожалуйста со следующей програмой.
Програма должна перевести введённые числа в тип string,
и короткую строку дополнить спереди нулями до длины большей строки и вывести на экран.Это тот кусок проги который я и сам могу, а вот дальше никак.Помогите плиз очень надо!

Program ASD;
uses wincrt;
var dlina1, dlina2:byte;
chislo1,chislo2:string[40];

begin
writeln ('задайте первое число');
readln(chislo1);
writeln ('задайте второе число')
readln (chislo2);
dlina1:= length (chislo1);
dlina2:= length (chislo2);
if dlina1>dlina2 then
dlina1:= abs(dlina1-dlina2);