Ученики зашифровывают свои записки, записывая все слова наоборот и расставляя их в предложении в обратном

[Feran]

Добрый вечер всем. Нужны советы на счёт написания программ. Излогаю:
1.Ученики зашифровывают свои записки, записывая все слова наоборот и расставляя их в предложении в обратном порядке. В строке содержится несколько предложений, при этом точка установлена справа от первого слова. Составить программу, позволяющую адресату прочесть записку без ручной дешифрации.

В общем как я понял нужно все символы до точки переписать в обратном порядке.

program MyProgram;
uses crt;
var str,str1,t:string;
    i,l,k:integer;
begin
     clrscr;
     writeln('Vvedite stroku do tochki');
     readln(str);
     l:=length(str);
     t:='.';
     k:=pos(str,t);// Очень весело брыкается, не хочет определять позицию точки. Почему я не могу понять.
     for i:=k downto 1 do
     begin
     str1[i]:=str[i];
     end;
 
     readkey;
end.

код не дописан но меня интересует сама ошибка.
Кому не тяжело попробуйте откомпилировать. Если переменная К примет хоть какое-то значение кроме нуля, значит у меня что то с компилятором.

[UnChanter]

function Pos(Substr: string; S: string): Integer;

pos - находит подстроку(substr) в строке (S) и возвращает позицию найденной подстроки. Если подстрока не найдена, то возвращает 0.

Имхо,

 k:=pos(t,str);