Программа  изменения  разделителя  "."  слов текста на разделитель,  вводимый пользователем.

Program N41(Input, Output);           

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

Label 1, 2;            

Блок объявления меток: задаем метки 1 и 2

Var         

Блок объявления глобальных переменных

T             : String; 

Переменная T - исходный текст

A            : String; 

Переменная A - разделитель, вводимый пользователем

i               : Integer;              

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

Begin    

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

WriteLn ('PASCAL: Изменение разделителя "." слов текста.');               

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

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

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

ReadLn (T);         

Ввод T

Write ('Введите ваш разделитель: ');             

Запрос ввода A - разделителя текста

ReadLn (A);        

Ввод A

1: i := Pos ('.', T); 

Метка 1: Заносим в i номер позиции вхождения разделителя '.'в текст T

If i = 0 Then Goto 2;           

Если больше нет разделителей (q = 0), то переход на метку 2, т.е. конец работы

Delete (T, i, 1);    

Удаляем из текста T разделитель '.', находящийся в i-ой позиции

Insert (A, T, i);    

Вставляем введенный пользователем разделитель A в i-ую позицию текста T

Goto 1;  

Переход на метку 1

2: WriteLn ('Полученный текст: ', T);           

Метка 2: Вывод полученного текста

ReadLn;

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

End.       

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