Piglatin program with infinite loop inserted to have program repeat
until stopped.

	program piglatin;
	var
		vowel, first, word, pigl: string;
	begin
	while true do
		begin
	
		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);
	
		end;
	readln;
	end.

Sample output

>Enter English word.
<teacher
>teacher becomes eachertay
>Enter English word.
<other
>other becomes theroway
<^C