Exercício de Vetor - Nomes

program lista_nome;

uses crt;

var
   nome                 : array [1..10] of string;
   i                    : integer;

begin
     clrscr;
     writeln ('Listagem de nomes');
     writeln ('-------- -- -----');
     writeln;
     { --- Entrada dos dados --- }
     for i:= 1 to 10 do
         begin
              write ('Digite o ',i:2,'§. nome: '); readln(nome[i]);
         end;
     writeln;
     { --- Apresentacao dos nomes --- }
     for i:= 1 to 10 do
         writeln ('Nome: ',i,'§. ---> ',nome[i]);
     writeln;
     writeln ('Tecle <ENTER> para encerrar: '); readln;
end.