For i:=1 to length(s) do if copy(S, i, 1)= 39;a39; then

Данный кусок программки поочередно читает каждый знак строчки s (о чём нам разговаривает строчка кода: For i:=1 to length(s) do)  и сравнивает его с эмблемой "a" (if copy(S, i, 1)= a then), если символ строчки равен искомому символу программка увеличивает значение переменной k на единицу (k:=k+1;).

Цикл For употребляется для исполнения деянья некое количество раз в связи с условием.

Оператор if -  условие  с следующим деяньем

Процедура Copy отдаёт нам часть строчки S длиной в  1 знак.