Ввести произвольный текст. в данном тексте есть символ ": ".вывести на экран ту часть текста, которая находиться до первого символа

// PascalABC.NET 3.1, сборка 1230 от 27.04.2016
begin
  var s:string;
  Writeln('Введите текст'); Readln(s);
  for var i:=1 to s.Length do
    if s[i]<>':' then Write(s[i]) else break;
end.