Program to convert English word to "piglatin".  Note that compound
statements with single statement have been simplified.  Watch out
for the semicolons!

	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 first = 'a' then
		vowel := 'yes';
	if first = 'e' then
		vowel := 'yes';	 
	if first = 'i' then     
		vowel := 'yes';
	if first = 'o' then
		vowel := 'yes';  
	if first = 'u' 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.
<either
>either becomes ithereway