crear programa en el cual haya un algoritmo para poder robar cartas

[[AzidRain]]

A los moderadores...seria bueno qye abran un foro llamado "Tareas" o similar. asi sería más fácil ordenar las opiniones, este caso es precisamente un tarea de escuela...

[Casimiro Noteví]

Por favor, ZERO0, lee nuestra guía de estilo, gracias.

[ZERO0]

Empezado por Casimiro Notevi

Por favor,ZERO0, lee nuestra guia de estilo, gracias.

Muy bien ya me lei la guia de estilo. Ahora bien, mirando el post que hice, hay algun fallo en lo que puse? ¿Qué debo corregir? Si no es así, el mensaje que me pusisteis era para que me leeyera el post no?

Gracias por adelantado.

[[Caral]]

Hola
Para mi la pregunta esta bien planteada, lo que me parece es que se deberia especificar el sitio donde se requiere que se haga lo que se necesita y no colocar todo el codigo, asi se iria mas al grano.
Por lo demas esta bien, para mi.
Saludos

[ZERO0]

Empezado por Caral

Hola
Para mi la pregunta esta bien planteada, lo que me parece es que se deberia especificar el sitio donde se requiere que se haga lo que se necesita y no colocar todo el codigo, asi se iria mas al grano.
Por lo demas esta bien, para mi.
Saludos

Muy bien, ahora mismo le pongo el sitio para poder hacer la mejora:

procedure RobarnCartes();
var
mall3:file of Tcarta;
aux3:Tcarta;
i,n,robat:integer;

begin
Assignfile(mall3,'baralla_a_estudi.car');
Reset(mall3);
writeln('quin nomrbre de cartes vols robar?');
readln(n);
i:=1;
Randomize;
robat:=0;
while (i<=n) do
begin
robat:=1 + random(1);
if (robat=aux3.num) then
begin
Read(mall3,aux3);
Writeln('carta robada numero:',i);
Writeln(aux3.nom);
Writeln(aux3.tipo);
Writeln(aux3.color);
Writeln(aux3.hp);
Writeln(aux3.text_carta1);
Writeln(aux3.text_carta2);
Writeln(aux3.text_carta3);
Writeln(aux3.text_carta4);
Writeln(aux3.debilitat);
Writeln(aux3.resistencia);
Writeln(aux3.costretirada);
i:=i+1;
end;
end;
Closefile(mall3);
end;

Lo que necesito es modificar el módulo que le muestro a continuación para que compile el archivo como una estructura aleatoria, que simule un robo de cartas de un mazo. Eso es todo. Por favor, si me lo puede modificar para que tenga lo que pido, modifiquemelo.

Gracias por adelantado.