Pascal функция процедура Примеры работы со строковым типом в паскале