Дано предложение. Напечатать все символы, расположенные между 1 и 2 запятой. Если 2 запятой нет, то должны быть напечатаны все символы, расположенные после единственной запятой.

// PascalABC.Net 3.0, сборка 1076var  s,ss:string;  i,n,p:integer;begin  Write('Введите строку: '); Readln(s);  n:=Length(s); p:=Pos(',',s);  if p in [1..n-1] then begin    ss:=Copy(s,p+1,n-p);    n:=Length(ss); p:=Pos(',',ss);    if p=0 then Writeln(ss)    else Writeln(Copy(ss,1,p-1))    end  else Writeln('*** Нечего выводить ***')end.      Тестовые решения:Введите строку: 01234,45679,1011213,1415161745679Введите строку: 01234,4567910112131415161745679101121314151617Введите строку: 01234,*** Нечего выводить ***