SoloCodigo

procedure Repartir ( ordenadas:mazito; N:integer);

type
aux=array[1..2] of string;
var
i,j,aleat:integer;

auxiliar1:aux;
aux2:string;

begin
Randomize;


for j:=1 to 4 do

    for i:=1 to N do
   
        begin
        aleat:=Random(N)+1;
        aux2:=ordenadas[i,j];
        ordenadas[i,j]:=ordenadas[aleat,j];
        ordenadas[aleat,j]:=aux2;
        end;

end;
aasi estaria bien un procedimiento k me intercambiase contenido de las columnas=?

Por que preguntas? No te funciona? Si funciona es porque está bien. Solo tienes que correrlo y te daras cuenta si funciona. No veo para que la pregunta.

Tampoco dijiste que es lo que quierías hacer.
Creo que no se puede usar la seccion TYPE dentro de un procedimiento.

Comenta que quieres lograr y que es lo que falla por favor.