составить программу которая определяет есть ли во введенной строке заданный символ (,)

var i, pr: Integer; n: String;Beginreadln(n);pr := 0;for i := 1 to length(n) doif n[i] = ',' then pr := 1;if pr = 1 then write('Такой символ есть') else write('Такого символа нету');End.