Выровнять слова в строках по ширине самой длинной строки

[регинa]

Выровнять слова в строках по ширине самой длинной строки.Максимальное число строк - 6.Истинное число строк определяется пользователем.Исходные данные ввести с клавиатуры.На экран монитора вывести исходные данные и результат расчета.

[Serge_Bliznykov]

заводите массив из строк (максимальная размерность массива Вам уже указана в задании: 6):

var MyText : array[1..6] of string;

Количество фактических строк запонимайте в отдельной переменной (например, n). При вводе нужно контролировать, чтобы n было в диапазоне от 1 до 6.

самую длинную строчку найти тоже просто:

MaxLen := Length( MyText[1] );
for i:=2 to n do
  if Length( MyText[i] ) > MaxLen  then MaxLen := Length( MyText[i] );

но вот понятие "выровнять слова в строках" явно требует расшифровки.
Есть разные методы выравнивания текста по ширине. Самый простой - перед последним словом вставить нужное число пробелов.
Например,

самая длинная строчка такая:
Мама мыла автомобиль
короткая такая:
Кот ловит мышь
Тогда, после выравнивания по самому простому способу получаем:
Кот ловит       мышь

вас такой вариант выравнивания устраивает?

[hon]

язык, наработки в студию