PROCEDURE linien;
VAR
	i,b              : INTEGER;

BEGIN

	FOR b:=0 TO 10 DO BEGIN
		FOR i:=0 TO 10 DO BEGIN
			LineTo(i*3*(2*Random-1), 30*(2*Random-1));
			Wait(0.1);
			Redraw;
			MoveTo((i*3+3)*(2*Random-1), 3*(2*Random-1));
		END;

		MoveTo(0, 0);
	END;

END;
Run(linien);