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