Дан массив строк. Определить строку наибольшей длины,и остальные компоненты массива дополнить пробелами в начале строки таким образом,чтобы все строки имели одинаковую длину.
ПОМОГИТЕ ПЛИЗЗЗ...
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];