Ответ:

var

slovo,slovo2:string;

simvol:Char;

a,ampirmetr:integer;

begin

readln (slovo);

a:=Pos(',',slovo);

ampirmetr:=length(slovo);

if a = 0 then writeln ('No data')

else begin

a:=a+1;

ampirmetr:=ampirmetr-a+1;

slovo2:=copy(slovo,a,ampirmetr);

writeln(slovo2);

end;

readln;

end.

Объяснение:

Имеется проверка на запятую.

В начале вводите текст с запятой, затем выполняется вывод текста после запятой (1 раз)