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

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