Вводится текст, конец ввода F1

begin
  var sb := new StringBuilder();
  var c: char;
  repeat
    c := ReadChar;
    sb.Append(c);
  until c = '5';
  var str := sb.ToString;
  str.Replace(' ', '#').Println;
  Write('Count of ".": ', str.Count(c -> c = '.'));
end.

function ReadStringUntilKey(end_key: System.ConsoleKey): string;
begin
  var res := new StringBuilder;
  
  while true do
  begin
    var key := Console.ReadKey;
    if key.Key = end_key then break;
    res += key.KeyChar;
  end;
  Println;
  
  Result := res.ToString;
end;
 
begin
  var text := ReadStringUntilKey(System.ConsoleKey.F1);
  
  'Кол-во точек:'.Print;
  text.Count(ch->ch='.').Println;
  
  text.Replace(' ', '#').Println;
  
  Readln;
end.

uses
  crt;
var
  t, c: char;
  s: string;
  i, k: integer;
begin
  writeln('Введите текст');
  repeat
    c := readkey;
    write(c);
    if c <> #0 then
      begin
        s := s + c;
        t := #1;
      end
    else
      begin
        t := c;
        c := readkey;
        if c <> #59 then s := s + t + c
      end;
  until (t = #0) and (c = #59); // #0#59 генерируется клавиатурой при нажатии F1
  writeln;
  for i := 1 to length(s) do
    if s[i] = ' ' then s[i] := '#'
    else
      if s[i] = '.' then inc(k);
  writeln('Преобразованный текст:');
  writeln(s);
  writeln('Количество точек: ', k);
  readln
end.