Program to convert English word to "piglatin".  Here the five if
statements to determine if first letter is a vowel have been
replaced by the use of the pos function.


	program piglatin;
	var
		vowel, first, word, pigl: string;
	begin
	
	{leave space}
	
	vowel := 'not';
	writeln('Enter English word.');
	readln(word);
	first := copy(word,1,1);
	if pos(first,'aeiou') > 0 then
		vowel := 'yes';
	if vowel = 'yes' then 
		pigl := copy(word,2,length(word)-1)+first+'way'
	else
		pigl := copy(word,2,length(word)-1)+first+'ay';
	writeln(word, ' becomes ', pigl);
	
	{leave space}
	
	readln;
	end.
	

Sample output

>Enter English word.
<teacher
>teacher becomes eachertay