Larback - Retornando conhecimento

Meu software nunca tem bugs. Ele apenas desenvolve alguns comportamentos aleatórios.

Matrizes - Resolução do exercício do bingo

Abaixo a implementação em pascal
Program Pzim ;
var
	cartelas:array[1..3,1..11] of integer;
	l,c,nSorteado:integer;	
	ganhou:boolean;
 Begin
 	clrscr;
 	writeln('Bingo Acme --- Bem vindo');
 	writeln('Preenchimento das cartelas');
 	for l:=1 to 3 do
 	begin
 		writeln('Preenchendo a cartela ',l);
 		for c:=1 to 2 do
 		begin
 			writeln ('Informe o ',c,' número');
 			readln(cartelas[l,c]);
 		end;
 		cartelas[l,11]:=0;
 		clrscr;
 	end;
 
 	randomize;
 	while ganhou=false do
 	begin
 		nSorteado:=random(10);
 		gotoxy(20,9);
 		writeln('Número sorteado...');
 		textcolor(14);
 		gotoxy(26,10);
		writeln(nSorteado);
		textcolor(15);
 		delay(2000);
 		for l:=1 to 3 do
 		begin                              
	 		for c:=1 to 2 do
 			begin
 				if(nSorteado=cartelas[l,c]) then
	 			begin
 					cartelas[l,11]:=cartelas[l,11]+1;
 					if (cartelas[l,11]=2)then
 					begin
 						ganhou:=true;
 						clrscr;
	 					writeln('Biiiiiinnnnnnngo');
 						writeln('A cartela ',l,' ganhou.');
 						readkey;
 					end;
	 			end;
 			end;
 			clrscr;
	 	end;
 		
 	end;
                             
 End.
 
 {Cores em pascal
0: preto
1: azul escuro
2: verde escuro
3: ciano escuro
4: vermelho escuro
5: magenta escuro
6: marrom
7: cinza claro
8: cinza escuro
9: azul claro
10: verde claro
11: ciano claro
12: vermelho claro
13: magenta claro
14: amarelo
15: branco 
}