Задачка на строки Опции

[Люсия]

Дан массив строк. Определить строку наибольшей длины,и остальные компоненты массива дополнить пробелами в начале строки таким образом,чтобы все строки имели одинаковую длину.
ПОМОГИТЕ ПЛИЗЗЗ...

[Алена]

или

while (Length(s[i]) < max_len) do s[i] := ' ' + s[i];