Определить номера позиций в строке символа пробел - Turbo Pascal

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

Определить номера позиций в строке символа пробел Друзья помогите пожалуйста

Решение задачи: «Определить номера позиций в строке символа пробел»

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

program SpacesPos;
 
const strExample = 'Проверочная строка, которая содержит несколько пробелов.';
 
var i, nStrLen : Integer;
 
begin
 nStrLen:=Length(strExample);
 Write('Позиции пробелов в строке:');
 
 For i:=1 to nStrLen do
  If strExample[i]=' ' then
    Write(' ',i);
end.

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

В данном коде на языке Turbo Pascal происходит следующее:

Объявляются две переменные: i и nStrLen. Переменная i будет использоваться для перебора символов в строке, а переменная nStrLen - для определения длины строки.
Строка Проверочная строка, которая содержит несколько пробелов. сохраняется в переменной strExample.
Вычисляется длина строки strExample и сохраняется в переменной nStrLen.
Выводится сообщение Позиции пробелов в строке:
Затем происходит цикл For, который начинается с i=1 и продолжается до nStrLen.
Внутри цикла проверяется, является ли текущий символ в строке пробелом. Если да, то он выводится на экран вместе с номером позиции.
После завершения цикла выводится символ новой строки. Таким образом, данный код позволяет вывести на экран позиции всех пробелов в заданной строке.