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

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.

program MyProgram;
uses crt;
var str,str1,t:string;
    i,l,k,g:integer;
begin
     clrscr;
     writeln('Vvedite stroku do tochki');
     readln(str);
     l:=length(str);
     str1:=copy(str,1,l);
     k:=pos('.',str);
     for i:=k downto 1 do
     begin
     str1[i]:=str[i];
     delete(str,k,1);
     k:=pos('.',str);
     end;
     writeln(str1);
 
     readkey;
end.

uses
  crt;
 
var
  s: string;
  i: integer;
 
begin
  writeln('введите строку');
  read(s);
  for i := length(s) downto 1 do 
  begin
    write(s[i]);
  end;
  readln;
end.