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

[Люсия]

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

[klem4]

  max_len := Length(s[1]);

  for i := 2 to n do
   if Length(s[i]) > max_len then
    max_len := Length(s[i]);

  for i := 1 to n do begin
    while (Length(s[i]) < max_len) do Insert(' ', s[i], 1);
    writeln(s[i]);
  end; 

[Алена]

или

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