Составьте алгоритм и реализуйте его в виде программы подсчитывающей количество символов введённых с клавиатуры и затем выводящей эту последовательность символов в обратном порядке

Допустим символы вводятся до символа "." - точка.
Точку в количество включать не будем

var
i,j: integer;
s: array[1..255] of char;
begin
while s[i]<>'.' do
   begin
     read(s[i]);
     inc(i);
   end;
writeln(i);
for j:=i downto 1 do
   write(s[j]);
end.