Здравствуйте, Новиков Сергей Александрович!
Посмотрите в приложении. Это то , что Вам надо?
Вопросы, просьбы принимаются

Приложение:
CONST
max_M = 100;
VAR
M, i, j, len: Integer;
S: array[1..max_M] of string;
BEGIN
write('Введите число строк (не больше ',max_M,'): ');
ReadLn(M);
if (M < 1) or (M > max_M) then begin
WriteLn('Введено недопустимое число строк');
WriteLn('Нажмите ENTER. Работа программы будет прекращена');
ReadLn; Halt(1)
end;
for i := 1 to M do begin
Write('Строка ',i:3,': ');
ReadLn(S[i]);
end;
WriteLn('======== Строки в разрядку =========');
for i:=1 to M do
begin
len:=length(S[i]);
for j := 1 to len do Write(S[i][j],' '); WriteLn
end;
WriteLn('Работа программы завершена. Нажмите ENTER');
ReadLn
END.