Задача: Напишите функцию revpositn, которая получает два параметра str1 и str2 типа string и возвращает позицию начала первого появления str1 текста, содержащего литеры str2 в обратном порядке. Например revpositn('внешность','с...

var str1,str2:string; c:char; i:integer; begin write('Введите первое слово: '); readln(str1); write('Введите второе слово: '); readln(str2); i:=1; while i<=(length(str2) div 2) do // Переворот второй строки.   begin                                            // Строка  - массив символов, и как в массиве просто     c:=str2[i];                                    // меняем элементы местами с использованием     str2[i]:=str2[length(str2)-i+1]; // вспомогательной переменной.     str2[length(str2)-i+1]:=c;     i:=i+1;   end;   writeln(pos(str2,str1));   end.