Extra_Classe

Program Casas_Baia;
Uses CRT;
Var
Nome : string;
Vet_Nome : array [1..15] of string;
vet_total_venda : array [1..15] of real;
Venda : real;
nome_aux :integer;

Begin

ClrScr;
Repeat

Gotoxy (24,02); Writeln ('Casas Baia Ltda');
Gotoxy (10,04); Writeln ('<< Mapa Diario de endas - Status do Cliente >>');
Gotoxy (12,07); Writeln ('Nome do Cliente......:');
Gotoxy (12,09); Writeln ('Valor Total da Venda.:');
Gotoxy (02,23); Writeln ('Erro:');

For Nome_Aux := 1 to 15 Do
Begin
Gotoxy (35,07); Readln (vet_nome[nome_aux]);
Gotoxy (35,09); Readln (Vet_total_Venda[Venda]);

End;