Выравнивание текста по левому краю — Pascal(Паскаль)

Program Pro_50 (Input, Output);
Var 
T : Array [1..100] Of String;
i, N : Integer; 
 
Begin
 
WriteLn ('PASCAL: Выравнивание текста по левому краю.'); 
WriteLn ('Введите текст (окончание ввода - пустая строка): '); 
i := 0; 
Repeat
i := i + 1;
ReadLn (T [i] ); 
Until T [i] = '';
N := i - 1;
 
For i := 1 To N Do
While Copy (T [i], 1, 1) = ' ' DoDelete (T [i], 1, 1);
 
WriteLn;
For i := 1 To N Do
WriteLn (T [i] );
 
ReadLn;
End.