Computação TOP10

Faça um algoritmo que preencha um vetor de nomes com 10 ocorrências recebendo do teclado, onde cada ocorrência é capaz de armazenar 30 dígitos. Ordene os nomes informados e exiba o resultado.

Resposta


program resposta;
// Autor: Cícero Amauri
var
  v: array [1..10]of string[30];
  i: integer;
  aux: string[30];
  mudou: char;
begin
    for i := 1 to 10 do
    begin
         write ('digite os nomes do vetor: ');
          readln(v[i]);
    end;
  repeat
      mudou := 'n';
      for i := 1 to 9 do
        begin
             if (v[i] > v[i+1]) then
                  begin
                     aux:= v[i];
                     v[i]:= v[i+1];
                     v[i+1]:= aux ;
                     mudou:= 's';
                  end;
         end;
  until (mudou = 'n');
       for i := 1 to 10 do
      begin
           writeln (v[i]);
      end;
end.