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

// PascalABC.NET 3.2, сборка 1356 от 04.12.2016// Внимание! Если программа не работает, обновите версию!begin  var s:=ReadlnString('>');  var p:=Pos('...',s);  if p>0 then Writeln(Copy(s,1,p-1))end.Пример> Это такая... тестовая... строкаЭто такая// PascalABC.NET 3.2, сборка 1356 от 04.12.2016// Внимание! Если программа не работает, обновите версию!begin  var s:=ReadlnString('>');  Writeln(s.Replace('...','.').Replace(' ','.'))end.Пример> Это такая... тестовая строка, надуманная...Это.такая..тестовая.строка,.надуманная.