Разделение  заданного  текста  на  подтексты заданной длины — Pascal(Паскаль)

Program Pro_49 (Input, Output);
Var 
Txt: String; 
W : Integer;
i : Integer;
 
Begin
 
WriteLn ('PASCAL: Разделение заданного текста на подтексты заданной длины.');
Write ('Введите текст Txt: ');
ReadLn (Txt);
Write ('Введите длину подтекстов W: ');
ReadLn (W); 
 
While Length (Txt) > W Do 
Begin
WriteLn (Copy (Txt, 1, W) );
Delete (Txt, 1, W);
End;
Writeln(Txt); 
 
ReadLn;
End.