SoloCodigo

hola soy nuevo en esto de la programación espero y me puedan ayudar pues ya me atore en esto..

necesito hacer un caracol en la pantalla, lo he intentado pero ya me atore. espero y me ayuden....

program ejemplo;
uses  crt;
var
     X : INTEGER;
     fila,col:integer;
begin

clrscr;

col:=0;
fila:=0;
        for x:=0 to 100 do
begin
         if x=0 then
begin
         col:=col+1;
         fila:=fila+1;  { Se situa en la fila}
end;

if x<78 then
       col:=col+1
 else

    begin
         fila:=fila+1;

end;
begin

   end;
    gotoxy(col,fila);
         write('@');
    readln;

end;


end.


alguien k me pudiera ayudar pleaseeee..  
chauuuuu!!!!!!!!!!!!!!1

Hola, pues estas errado de foroo, pero no importa, el algoritmo para realizar el programa es el mismo independiente del lenguaje, dime... lo que necesitas es en modo texto y con el caracter de miarroba?... es un dibujo grande que debes realizar??... espesifica un poco mas de que se trata tu problema y vere en que puedo ayudarte. Saludos