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

Simple infinite loop with numbers.

	program forever;
	var
		i: integer;
	begin
	i := 0;
	while true do
		begin
		writeln('xxxxx ', i);
		i := i + 10;
		end;
	end.

Sample output

>xxxxx 0
>xxxxx 10
>xxxxx 20
>xxxxx 30
>xxxxx 40
>xxxxx 50
>xxxxx 60
>xxxxx 70
>...
>(negative numbers)
>...
>(positive numbers)
>...


Simple loop: count down:

	program blastoff;
	var
		i: integer;
	begin
	i := 5;
	while i >= 0 do
		begin
		writeln(i);
		i := i - 1;
		end;
	end.

Sample output

>10
>9
>8
>7
>6
>5
>4
>3
>2
>1
>0

Simple loop: table of integers, squares and cubes:

	program table;
	var
		i: integer;
	begin
	i := 0;
	while i <= 5 do
		begin
		writeln(i, ' ', i*i, ' ', i*i*i);
		i := i + 1;
		end;
	end.

Sample output

>0 0 0
>1 1 1
>2 4 8
>3 9 27
>4 16 64
>5 25 125


Program to translate from one alphabet to another.

	program transl;
	var
		alphafrom, alphato, char, outchar: string;
		where: integer;
	begin
	writeln('Enter source alphabet');
	readln(alphafrom);
	writeln('Enter target alphabet');
	readln(alphato);
	
	{leave space}
	
	writeln('Enter character');
	readln(char);
	where := pos(char,alphafrom);
	outchar := copy(alphato, where, 1);
	writeln(outchar);
	
	{leave space}
	
	readln;
	end.

did not finish...