помогите умоляю с задачкой на Pascale, работа со строками Опции

[Baturaanna]

Составить процедуру, позволяющую определить позицию самого правого вхождения заданного символа в исходную строку. Если строка не содержит символа, то результатом работы будет -1.

Помогите кто может. Заранее благодарна.Я вообще в этом Паскале слабо соображаю.

[Neznaika]

Кажется уже не по теме, но я всё же отвечу.

а можно только GOTO, и использовать не циклы не разветления не нужны!

К сожалению(или к счастью) одним только GOTO нельзя ограничиться - получится ЛИНЕЙНАЯ операторов,
которую можно переписать, выбросив всё GOTO. Например
goto 2;
1: Write('1'); goto 3;
2: Write('2'); goto 1;
3: Write('3')
заменяется соответственно на
Write('2'); Write('1'); Write('3');
Это возможно, если последовательность операторов конечна, то есть нет бесконечных циклов:
1: ... goto 1;
Поэтому без ветвлений(то есть без оператора IF-THEN-ELSE) не обойтись. А циклы - это просто надстройка над
IF+GOTO. Например цикл WHILE:

Label_НАЧАЛО_ЦИКЛА:
   if not УСЛОВИЕ_ПРОДОЛЖЕНИЯ_ЦИКЛА then
     goto Label_ПОСЛЕ_ЦИКЛА;
   ТЕЛО_ЦИКЛА;
   goto Label_НАЧАЛО_ЦИКЛА;
Label_ПОСЛЕ_ЦИКЛА:   

Разумеется вместо этого лучше написать
while УСЛОВИЕ_ПРОДОЛЖЕНИЯ_ЦИКЛА do
ТЕЛО_ЦИКЛА;