Дана строка символов,среди которых есть двоеточие... - Pascal ABC

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

ребят помогите решить задачку дана строка символов,среди которых есть двоеточие.определить, сколько символов ему предшествует блок схемы уже научилась делать )

Решение задачи: «Дана строка символов,среди которых есть двоеточие...»

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

uses crt;
var s:string;
    i,n:integer;
begin
read(s);
for i:=1 to length(s) do
begin
if s[i]=':' then
n:=i-1;
end;
write(n);
end.

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

В начале программы подключается модуль CRT (клавиатура/монитор).
Затем объявляются три переменные: s (строка), i (целое число), n (целое число).
Переменная s инициализируется вводом пользователя с помощью функции read.
Затем в цикле for перебираются все символы строки s.
Если текущий символ равен двоеточию (':'), то переменная n получает значение текущего индекса - 1.
После окончания цикла, значение переменной n выводится на экран с помощью функции write.