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

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