O exemplo abaixo é um programa de agenda. Possui uma tabela com 5 colunas com os dados (nome, endereco, cepo, bairro e telefone) e 10 linhas (com os nomes dos cadastrados).

program AGENDA;
var
dado: array[1..10, 1..5] of string;
i, j, atual, proximo: integer;
x: string;
BEGIN
{Rotina de entrada}
writeln(‘Programa agenda’);
writeln;
for i:=1 to 10 do Begin
write(‘Nome …..:’); readln(dado[i,1]);
write(‘Endereco..:’); readln(dado[i,2]);
write(‘CEP… …..:’); readln(dado[i,3]);
write(‘Bairro…..:’); readln(dado[i,4]);
write(‘Telefone..:’); readln(dado[i,5]);
writeln;
end;

{Ordenação e troca de elementos}
for atual:=1 to 9 do Begin
for proximo:=atual+1 to 10 do Begin
{troca nome}
x:=dado[atual,1];
dado[atual, 1]:= dado[proximo,1];
dado[proximo, 1]:=x;
{troca endereco}
x:=dado[atual,2];
dado[atual, 2]:= dado[proximo,2];
dado[proximo, 2]:=x;
{troca CEP}
x:=dado[atual,3];
dado[atual, 3]:= dado[proximo,3];
dado[proximo, 3]:=x;
{troca Bairro}
x:=dado[atual,4];
dado[atual, 4]:= dado[proximo,4];
dado[proximo, 4]:=x;
{troca Telefone}
x:=dado[atual,5];
dado[atual, 5]:= dado[proximo,5];
dado[proximo, 5]:=x;
end;
end;

{Saida de dados}
for i:=1 to 10 do Begin
for j:=1 to 5 do Begin
writeln(dado[i,j]);
end;
writeln;
end;

writeln(‘Tecle <ENTER> para encerrar: ‘); readln;
END.