Кто понимает Паскаль, обращаюсь к вам! Очень нужна ваша помощь! Составьте программу, которая выводит все символы до первого многоточия и программу, которая заменяет каждое многоточие точкой и каждый пробел точкой.

// PascalABC.NET 3.2, сборка 1356 от 04.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString(gt;);
  var p:=Pos(...,s);
  if pgt;0 then Writeln(Copy(s,1,p-1))
end.

Пример
gt; Это такая... тестовая... строка
Это такая

// PascalABC.NET 3.2, сборка 1356 от 04.12.2016
// Внимание! Если программа не работает, обновите версию!

begin
  var s:=ReadlnString(gt;);
  Writeln(s.Replace(...,.).Replace( ,.))
end.

Пример
gt; Это такая... тестовая строка, надуманная...
Это.такая..тестовая.строка,.надуманная.