Разделение  заданного  текста  на  подтексты заданной длины.

Program Pro_49 (Input, Output);    

Объявление имени программы

Var         

Объявление имени программы

Txt          : String; 

Заданный текст

W           : Integer;              

Длина подтекстов

i               : Integer;              

i - переменная цикла

Begin    

Начало тела программы

WriteLn ('PASCAL: Разделение заданного текста на подтексты заданной длины.');        

Формулировка цели алгоритма

Write ('Введите текст Txt: ');            

Запрос ввода Txt - исходного текста

ReadLn (Txt);      

Ввод переменной Txt

Write ('Введите длину подтекстов W: ');      

Запрос ввода длины подтекстов

ReadLn (W);       

Ввод длины подтекстов

While Length (Txt) > W Do             

Пока длина текств больше длины подтекстов, ...

Begin    

Начало тела цикла

WriteLn (Copy (Txt, 1, W) );            

Выводим очередной выделенный подтекст

Delete (Txt, 1, W);              

Удаляем очередной подтекст из текста

End;      

Конец тела цикла

Writeln(Txt);       

Выводим оставшуюся часть текста

ReadLn;

Ожидание нажатия клавиши Enter для завершения

End.       

Конец программы.