Дана предложение напечатайте все символы до запятой

var s: string;    n: integer;begin  write('предложение: '); readln(s);  n:=pos(',',s);  if n>0 then writeln(copy(s,1,n-1))  else writeln(s);end.предложение: декабрь, январь, февраль - зима.декабрь