Обработка строк - Pascal ABC

Формулировка задачи:

1.Заполните экран бирюзовым цветом. Введите строку с клавиатуры. Ещё раз очистить экран и выведите строку, вставив в неё слова «ok» перед каждым пробелом. 2.Дополните предыдущую программу таким образом,чтобы во веденной строке сначала подсчитывалось количество пробелов.

Решение задачи: «Обработка строк»

Листинг программы

uses crt;
var s:string;
    i:byte;
begin
textbackground(lightcyan);
clrscr;
writeln('Введите строку с пробелами');
readln(s);
for i:=length(s)downto 1 do
if s[i]=' ' then insert('ok',s,i);
clrscr;
write(s);
end.

Объяснение кода листинга программы

В первой строке используется библиотека crt, которая является стандартной для языка Pascal ABC и используется для ввода-вывода данных.
Переменная s типа string предназначена для хранения введенной пользователем строки.
Переменная i типа byte используется для хранения индекса символа в строке.
Функция textbackground(lightcyan) используется для изменения фона текста на светло-голубой.
Функция clrscr используется для очистки экрана перед выводом введенной строки.
В строке readln(s) происходит чтение введенной пользователем строки и сохранение ее в переменную s.
В строке for i:=length(s)downto 1 do происходит цикл for, который начинается с индекса длины строки (length(s)) и продолжается до 1. Внутри цикла проверяется условие if s[i]=' ' (строка равна пробелу). Если это условие истинно, то вызывается функция insert('ok',s,i), которая вставляет слово ok в строку на месте i-го символа.
В строке clrscr происходит очистка экрана перед выводом измененной строки.
В строке write(s) происходит вывод измененной строки на экран.