Jogo da memoria

Program jogo_da_memoria; user crt; const tam=4; tam2=10; type Tvetor = array[1..tam,1..tam]of string; Tfiguras = array[1..16]of char; Tranking = record nome: string[14]; pontos: integer; end; Tarquivo = file of tranking;

//Procedimento para imprimir o menu de opções procedure escrevemenu;

var z: integer; // Z ajusta a linha ou coluna na criação das bordas begin window(20, 6, 60, 20); textbackground(white); textcolor(red); clrscr; writeln; writeln (' ');

window(1, 1, 80, 25); textbackground(black); textcolor(white);

// Borda superior gotoxy(20, 5); for z := 1 to 41 do begin write(chr(205)); delay (15); end;

// Canto Superior direito gotoxy(61, 5); writeln (chr(187)); delay (15);

// Barra lateral direita gotoxy(61,6); for z := 1 to 15 do begin write(chr(186)); writeln; delay (15); gotoxy(61,6 + z); end;

// Canto Inferior direito gotoxy(61, 21); writeln (chr(188)); delay (20);

// Barra Inferior gotoxy(61,21); for z := 41 downto 1 do begin write(chr(205)); delay (15); gotoxy(18 + z,21); end;

// Canto Inferior Esquerdo gotoxy(19, 21); writeln (chr(200)); delay (15);

// Barra lateral Esquerda gotoxy(19,20); for z := 16 downto 1 do begin write(chr(186)); writeln; delay (15); gotoxy(19,4 + z); end;

// Canto Superior Esquerdo gotoxy (19, 5); writeln (chr(201)); delay (15); window(20, 6, 60, 20); textbackground(white); textcolor(red); clrscr; writeln; writeln (' JOGO DA MEMÓRIA '); writeln; writeln (' Menu de opçoes'); writeln; delay (400); writeln(' 1 - Jogar'); delay